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DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DD DD 8B BB GG GG S$ YY MM BB BB LL ZZ cove 
dD DD 8B BB GG GG S$ YY MM 88 BB LL ZZ eeee 
DDDDDDDD BBBBBBBB GGGGGG SSSSSSSS YY MM BBBEBBBB LLLLLLLLLL 92222222222 cove 
DDDDDDDD BBBBBBBB GGGGGG SSSSSSSS YY MM BBBBB8BB LLLELLLLLEL 92222222222 cove 
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vOe=000 10-388-1 $be 95:47:89 DEBUG. SR RCIDBGSYMBLZ. B32;1 : (1) 


MODULE DBGSYMBLZ (IDENT = ‘V04-000") = 
BEGIN 


VORA AA ARR AAAERHEHAHRAKHRHHEKeHEHeRHHeeeKeKeeeterereneneteneeerererateneeeeese 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


e 
or 
te 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
if ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
is COPIES THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREGY 
ie TRANSFERRED. * 
® * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
i CORPORATION. * 

® 

* 

® 

® 

® 

ft 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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2 

2 

2 

2 

2 

2 
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2 . 

2 ! WRITTEN BY 

¢ Victoria Holt July, 1982 

3 i MODIFIED BY: 

3 ‘ R. Title \ 

3 } Nov, 1982 > Added DBGSSYMID_TO_PRIMARY routine 

; : P. Sager / 

3 0 ; P. Sager Dec, 1982 Rework parts of Des module to work better 
3 00 ‘ : for symbolizat 

3 0038 : R. Title Feb 1983 ogee DUMP_ gat ond DUMP_GLOBAL routines 
% 0039 ' i to aig in performance studies. 

4 0040 : R. Title May 1983 Redes gned SAT as tree instead of Linked 
4 0041 : La rote Rag i BIN. SAT and SEARCH. PROG. SAT 
4 004 : utilize new data structure. ; 
4 004 ' WwW. Carrell Sep 1983 Update DBGSCURRENT * PRIMARY for self_referential 
4 044 : records 

4 045 : 

4 0046 ' MODULE FUNCTION 

4 0047 : This module contains all the routines necessary for parsing and 

4 0048 : executing the SYMBOLIZE command. 

4 Bae? ‘ 

5 050 

2 NBs REQUIRE ‘SRC$:DBGPROLOG.REQ'; 

5 1 $ FORWARD ROUTINE 

5 1 peGene Kecure gs ' Performs action of SYMBOLIZE xxx. 
5 188 DBGSNPARSE _SYMB ize. ' Establishes parse network. 

5 0189 DBGSSEARCH_BIN SAT ' Search module-level SAf 

5 0190 DBGSSEARCH_PROG_ saf, ! Search program-level SAT 


ooo aofolololofolololoflelolelelelelelelolololo) 


POPYPIPOPININIPININPININNININ OO Oe es 
3 | “DOO DOGVOCOCOCOOOOOOOOOO 


FUN 9 ODNOAU EWN O OONOU Ew — 
a kk a dt 


dB GSSEARCH BIN SAT_REC 

SSEARCH- PROG SAT_REC, 
DBGESEARCH AL, 
DBGSDUMP GCOBAL: NOVALUE, 
DBGESEARCH $A 


DBGSDUMP_SAT: NOVA 
DBCSSEARCH VAX CALLS Ve tack. 
LIZE_REG 
DBG$SYMID TO PRIMARY, 

DBGSNEW_SYMBOLIZE, 
DBGSPC “T3 _SYMID, 


FIND ROUTINE, 
GET_ADDRESS_DESC, 


GSTADDRESS 

[e-Symect povth, ORE. 

RINT_REGNAME : g. 

SEARCA_MODULE_SAT: NOVALUE, 
ILD PRIMARY” S ° 


SYMBOLIZE_ARRAY_ELEMENT 
SYMBOL 1ZE~RECORD_COMPONENT; 


“320-19 93:97:89 — Okauc. Sacioageymac 


' Recursive search-sat routine 
' Recursive search-sat roys toe 
' Searches Global Symbol Chain 

' Counts length of oop) 

} poareges SAT 9 symbol HH qhteress. 


Symbol Chain 


Dump information about $ 


i Searches VAX call ar 


Bey) to $s syabot ere ister addr. 

Turns SYMID,OFFSET into Primary 

New symbolization routine 

i Given address, search Module AT or 
Global symbol ody for RST 

i Finds routine correspondi ng to PC. 

; oe Address Descriptor from given 
address representation 

Get GSTs address 


i Determines if symbol is bound to reg. 
SECT 


! Determines if symbol is P 

' Encodes register into output buffer. 
Searches module level SAT for addr. 

i Build primary subnode 

Get the record component from the List 
i Symbolize to array element 

' Symbolize to record component 


<o | 


<9 


mM 2 
lecSep-tope 18:17:51 EeeuG.SAciDB 


' Build RST entry with invocation num 
' Build a subnode for a Primary 

' Dynamic soeers allocation. 

' Get the name from DST record 


UILD_INVOC_RST, 
UILD“PRIMARY_SUBNODE: NOVALUE, 


o 
o 
7) 
bad 
a 
mm 
—~ 
i 
o- 
wre 
=z 
‘ov 
=z 
mm 
=z 


Flush current print Line. 

Obtains an address from an address 

expression descripior. 

Sets up message vector. 

Matches input to counted strings. 

Obtains next word of input. 

Parses input and returns an AED. 

Looks up ine no. for PC addr. 

Turn Primary into Value 

Print/format ASCII text. 

Sets up tabs for DBGSPRINT. 

Prints value in correct radix. 

Print symbol name with pathname 

Return Register Descriptor for register 
address 

Convert addr. to symbol and offset. 

Build RST Entry for Line number 

Convert Register Descriptor into ASCIC 
name emt for the cegister 

re I 


DBGSNGET_ADDRESS, 


DBGSNMAKE_ARG_VECT, 
DBGSNMATCA, 


DBGS$P’ : ‘ 
DBGSPRINT_CONTROL: NOVALUE, 
DBGSPRINT_OFFSET: NOVALUE, 

0BGS OL_PATHNAME: NOVALUE, 
DBGSSTA_AJDRESS_TO_REGDESCR, 


DBGSSTA_GETSYMOFF 
DBGSSTA-LINE_NUM_RST 
DBGSSTA-REGISTER_NAME, 


DBGSSTA_SETCONTEXT: NOVALUE, 
DBGSSTA-SYMKIND: NOVALUE 
: NOVALUE, 


@ 
@ 
bal 
z 
“4 

i 
nw“ 
«< 
® 


Set the context given SYMID 
Obtains ‘‘kind’’ of a symbol 

Translates symid to unqualified name. 
Returns size associated with symid. 
Determine TYPEID from SYMID 

Get the vulue kind and value 

a Get info about record 

DBGSSTA_1YPEF COD Obtain FCODE from SYMID 
DBGSSTA-VARIANT_SELECT, Get a pointer to a variant set RST 
SYSSFAO; ' Formatter. 


DBGSSTA-SYMTYPE: NOVALUE 
DBGSSTA-SYMVALUE: NOVALUE, 
DBGS$STA-TYP_RECORD, 


EXTE 


ay 


<9 


Pointer to the primary being processed 
Radix settings 

Used for controling array subscripting 
Used for controling record component 


LEAF 


ee on anaahbub ab abababababehahaddlinendeneneandads 
wus CHUN RO PORORIFIMIFIFURIMY — = = =) = =d = -2 = mOOOOOOOOO 
eee VO RU POONA UI IOSS UF ARES 


NNO 
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Current language setting 

Call frame exception handler. 

Vector of user register values in the 
current context. 

The current user run frame. 

Ptr to Ist module RST entry. 

Address of Ist SAT entry on program 
SAT chain, 


DBGS$F IRAL_HANDL, 
DBGSREG_VALUES: VECTORC, LONG), 


DBGSRUNFRAME:  BLOCKC, BYTE), 
RST$START_ADDR: REF RSTSENTRY, 


SATSSTART-ADDR; 


meme mmm mm meme 


LITERAL 
TAB = 4; ! Indentation level for DBGSPRINT_CONTROL. 


Begin address of the module 


OWN_MODULE BEGIN, 
End address of the module 


OWN"MODULE “END; 
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' DBGSSTA_SYMSIZE: NOVALUC, 
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1b-se 1984 02:41:4 AX-11 Bligs- 
14-Sep-19 4 ? 217:5 DEBUG. SRC IDB 


GLOBAL ROUTINE DBGSNEXECUTE_SYMBOLIZE (VERB_NODE, MESSAGE_VECT) = 


i FUNCTION 
‘ This routine performs the action associated with the SYMBOLIZE xxx 
command. 


A virtual address is obtained from the command execution tree. From 
there, the routine determines what kind of address it is: a register 
address, static address, or stack address. After making that 
determination, the routine attempts to locate symbols bound to that 
address by soarea re the set module chain (in the case of a register 
address), by searching the SAT (in the case of a static address), or by 
searching the call stack (in the case of a stack address). (Symbols 
whose addresses are too complicated to compute in this last search are 
ignored.) Finally the Global Symbol Chain is searched. 


! INPUTS 
VERB_NODE - A longword containing the address of the command 
execution tree verb node. 
MESSAGE _VECT - The address of a longword to contain the address 
of a standard message argument vector on error. 
OUTPUTS 


An unsigned integer longword completion code. 


On success, all possible symbolizations for the virtual address are 
sent to the output device. 


i 
i 
' 
i 
' 
i 
' 
' 
' 
' 
' 
' 
i 
' 
' 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
On failure (no symbolization found), a message to that effect is printed. 
BEGIN 

MAP 

VERB_NODE: REF DBGSVERB_NODE; : Ptr to verb node. 


OCAL 
arenes peste REF DBGSADDRESS_DESC, 


B1T_O 
NOUR_NODE: REF DBGSNOUN_NODE, 
SYMIB: REF RSTSENTRY: 


Address descriptor. 

Bit offset from SYMID 
Ptr to noun node. ; 
Unique symbol identifier. 


: Recover the noun node. 
NOUN_NODE = .VERB_NODECDBGSL_VERB_OBJECT_PTR); 


Loop through tree. 
WHILE .NOUN_NODE NEQ 0 DO 
BEGIN 


! Set up tabs. 


es 
| DBGSYMBLZ 16-Sep-1984 7:41:46 AxX-11 Bliss<-32 V4.0-74 Page 
04-000 14-Sep-1984 13:77:89 — Ueeuc. SrcSoacsvmec 03 31 th 
F ' 
ie 09 39 . 
; 19 40 DBGSPRINT_CONTROL (DBGSK_PRT_RESET); 
13 \¢ 0 2g 
3 ae 8 $7 Recover address descriptor. 
; 215 0345 ADDRESS_DESC = .NOUN_NODECDBGSL_NOUN_VALUE); 
; 216 0346 
: 27 0347 
> 218 0348 ! Call the routine that gery | does all the work. | 
;s 219 0349 ' If no syabet ‘zetton is possible for the address, print a message to 
3 530 0331 : that effect. 
; $56 0 2g IF NOT DBGSSTA_GETSYMOFF (.ADDRESS_DESC, SYMID, BIT_OFFSET, TRUE) 
s eo 0355 4 DBGSPRINT (UPLIT BYTE (ZASCIC ‘address !XL'), .ADDRESS_DESCCDBGSL_ADDRESS_BYTE_ADDR]); 
; 226 0356 4 INT _BIT_OFFSET (ADDRESS _DESCCOBGSL ADDRESS_BIT_OFFSETI); 
s ger 0357 4 DBGSPRINT (UPLIT BYTE (4ASCIC ': ‘DS; 
> 228 0358 4 DBGSNEWLINE(); 
: 229 0359 4 ) PRINT_CO* ROL (DBGSK_PRTSET_LMARGIN, TAB); 
> 230 0360 4 DBGSPRINT~(UrcIT BYTE (ZASCIC ‘no symbolization'), 0); 
s gst 0361 4 DBGSNEWLINE(); 
3; 232 0306 3 END; 
s 233 0363 3 
; 234 0364 3 
3. as: 0365 ; ' Get next noun node. 
: 236 0366 ‘ 
s @s¢ 0367 3 NOUN_NODE = -NOUN_NODE CDBG$L_NOUN_LINK); 
; 238 0368 END; 
: 239 0369 
; 240 0370 
; 241 0371 2 ' Routine end. 
; see O76 2 ‘ 
6 0373 2 RETURN STS$K_SUCCESS; 
> 2646 Q374 1 END; 
-TITLE DBGSYMBLZ 
-IDENT \v04-000\ 
-PSECT DBGSPLIT.NOWRT, SHR, PIC,0O 
4C 58 21 20 73 73 65 72 64 64 61 OB 60000 P.AAA: ASCII] <11>\address 'XL\ ; 
C 01 QOO0C P.AAB: .ASCII <1>\<\ 3 
4c 55 1 03 ite} P.AAC: .ASCII <3>\!UL\ : 
3 30 20 2C 30 $8 C O07 00012 P.AAD: .ASCII <7>\, 0, O>\ 3 
0 $A 02 QOQIA P-AAE: ASCII <2\i \ eae : 
69 74 61 7A 69 6C 6F 62 6D 79 73 20 6F of i Bae P.AAF: ASCII <16>\no symbolization\ 3 


| 

| LPSECT DBGSOWN,NOEXE, PIC.2 
00000 OWN_MODULE BEGIN: 

| BCks 


| 00004 OWN_MODULE END: 
| -BCKB 4 


C 


i Oe Oe Oe Oe Oe Oe BHO e Be Oe Oe Oe Oe Oe Se Be SH SH Se Se Se SESH Se Se Se Se Se Se SH Se Se Se Se Se Se SH Se Se Se Se Se Se Se Fe Se ae SH Se Ge Se SH SH Oe Se ae 


| Be. 
| DBGSYMBLZ 16-Sep-1984 02:41:46 AX-11 Bliss-32 v4.0-74 Page 7 
, V04-000 12286871 38e 95s bigs DEBUG. Bh DBGSYMBLZ.B32;1 0 (4) 
-EXTRN DBGSBUILD_INV 
-EXTRN DBGSBUILD-PR RIMART. * SUBNODE 
«EXTRN DBGSGE!_TERPREM 
-EXTRN DBGSGET_D 


“EXTRN DBGSMAKE. SKELET 


oEXTRN DBGENEUL TNE seit’ ADDRESS 


ES 
-EXTRN DBGSPC 10, CIN we LOOKUP 
-EXTRN DBGSPRIM vat 
~EXTRN pocsen Tae Onse Print CONTROL 
-EXTRN DBGSPRINT_OFFSET 
.EXTRN DBGSPRINT SYMBOL _P AME 
-EXTRN DBGSSTA_ aponess To. AREGDESCR 
-EXTRN DBGSSTA_GETSYMOFF 


-EXTRN DBGSST “tf 

-EXTRN DBGSSTA_REGISTER NAME 
-EXTRN DBGSSTA_SET z 
-EXTRN DBGSSTA_SYMKIND 
-EXTRN DBGSSTA_SY 

-EXTRN DBGSSTA_SYMSIZE 
-EXTRN DBGSSTA_SYMTYPE 


SELECT 
EXTRN SYSSF AO, DBGSGL~ CURRENT PRIMARY 


-EXTRN DBG$GB_RADIX, DBGS$GL_ARRSUB_FLAG 
EXTRN DBGscr REC CME FL AG 
-EXTRN DBGS$GB ANGUACE 


~EXTRN DBGSFIRAL 
-EXTRN DBGSREG taLUcee DBGSRUNF RAME 
-EXTRN RSTSSTART_ADDR, SATSSTART_ADOR 


-PSECT DBGSCODE,.NOWRT, SHR, PIC,0 


OOFC 00000 -ENTRY DBGSNEXECUTE_SYMBOLIZE, Save R2,R3,R4,R5,- ; 0282 
57 000000006 00 9€ 00002 MOVAB DBGSPRINT CONTROL, R7 ; 
56 000000006 00 9€E 00009 MOVAB DBGSNEWLINE, R6 ; 
55 900000006 00 9€ 00010 MOVAB ODBGSPRINT, RS : 
34 0000000' EF 9 90017 MOV AAA, R46 ; 
8 Ce OOO1E SUBL S ; 
5 06 AC D 909 1 MOVL Ks NODE . RO > 0329 
5 08 ad 00 00025 MOVL tRoy, $ 
3 1 029 1$ BEQL ; 0334 
0 DD 00028 PUSHL “3 : 0340 
67 1 Ff 02D CALLS DBGSPRINT CONTROL : 
2 3 pd 000 MOVL (dun _NODE), ADDRESS_DESC ; 0345 
1 DD 000 PUSHL : 0352 
04 AE 9F 000 PUSHAB BIT OFFSET ; 
C as QF : PUSHAB SYMTD 3 
DD PUSHL ADDRESS 6D ESC ; 
000000006 90 4 FB 8 D CALLS res pRCSSTAL GE TSYMOF F $ 
0 € 44 BLBS ; 


3 
DBGSYMBLZ rbese =1984 02:41:46 AX-11 Bliss-32 v4.0-76 
_vO4=000 eaeeen abe FSiFbish | HOES Shige eae Me On ees 
$2 DD 00047 PUSHL (ADDRESS_DESC) 
| 4 DD 00049 PUSHL Rs 
65 02 FB 00048 CALLS DBGSPRINT 
06 Ae 0 O04 TSTL eeapaces DESC) 
1§ 13 0005 BEQL =_«o2>$ 
OC Ae 9F 00053 PUSHAB PA AAB 
| 65 01 FB 0096 CALLS DBGSPRINT 
04 A2 pp 005 PUSHL cchopaess DESC) 
OF Ad 9F 0005C PUSHAB P.AAC 
65 02 FB 0005F CALLS #2, DBGSPRINT 
12 AG OF 0062 PUSHAB P. AD 
| 65 01 FB 0006 CALLS #1, DBGSPRINT 
| 1A AG 9F 00068 2$ PUSHAB ° 
65 01 FB 00068 CALLS #1, DBGSPRINT 
66 00 FB 000¢E CALLS #0, DBGSNEWL INE 
04 pd 00071 PUSHL 
01 DD 90075 PUSHL 
67 02 FB 0007 CALLS 2 DBGSPRINT_CONTROL 
7E 04 00078 CLAL = (SP) 
1D Ad 9F OOO7A PUSHAB 
65 02 FB 0007D CALLS oo, MDBGSPRINT 
66 00 FB 00080 CALLS #0. DBGSNEWLINE 
3 08 A3 00 00083 3$ MOVL B (NOUN, NODE). NOUN_NODE 
AO 11 00087 BRB 1$ 
50 01 DO 00089 4$ MOVL #1, RO 
04 0008C¢ RET 


; Routine Size: 141 bytes, Routine Base: DBGSCODE + 0000 


ro - 


iz, 

| DBGSYMBLZ 16-Sep-1984 02:41:4 AX-11 Bliss-32 V4.0-74 Page 9 
v06-000 12280871382 9 :17:5 {de BUG. SRC DBGSYMBLZ.832;1 . (5) 
| 3 re 0 Ne : GLOBAL ROUTINE DBGSNPARSE_SYMBOLIZE (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 
is 268 0 § 1 ! FUNCTION 

‘3 «249 4 1! Establishes the parse network for the SYMBOLIZE command, consisting of 
; 250 0379 1! a@ verb_node and a Linked List of noun nodes. Each noun node points to 
|3 e 8 0 : } an address that is to be symbolized, if possible. 

|3 38 0 8 1 ! INPUTS 

> 254 0 1} INPUT_DESC - a longword gontaining the address of the command 

3 55 0384 1! input descriptor. This should point to the first 

3 28 8 +H : character after the SYMBOLIZE keyword. 

; 258 0 Hi ; 3 VERB_NODE - A longword containing the address of the command 

3 $28 bese : execution tree verb node. 

; 261 $390 1: MESSAGE _VECT - The address of a longword to contain the address 

: $06 $34. : of a standard message argument vector on error. 

; 64 $398 1 ! OUTPUTS 

3 $e? the : } An unsigned integer longword completion code. 
li; 267 0396 1! The pointer to the input descriptor is advanced to the end of the 

; 268 0397 1! complete symbolize command. Normally this means pointing to the 
3 $68 Ree : terminating carriage return. 

; 47) 0400 1! On success, the command execution tree is constructed; je, noun nodes 
B gfe 0401 1! containing the addresses descriptor to be symbolized are Linked to 
3 af 0402 1! the verb node. 

: 274 040 1! 

; are 0406 1! On failure, the routine signals an error. 

; 276 0405 1! 

3; «(arr 0406 1 

; 278 0407 2 BEGIN 

3; ey 0408 § 

; 280 0409 MAP 

: 281 0410 2 INPUT_DESC: REF BLOCK C,B8YTE), ! Ptr. to input desc. 

> 282 0411 2 VERB_RODE: REF DBGSVERB_NODE; i Ptr. to verb node. 

; ges at $ 

; 284 041 LOCAL 

; 4285 0414 ADDRPTR, ! Pointer to an address 

; 286 0415 ' representation 

2 87 0416 ADDRESS DESC: REF DBGSADDRESS_DESC, ' Pointer to an Addr. Desc. 

; 288 0417 NOUN_NOBE: REF DBGS$NOUN NODE, ' Object of verb 

3 89 0418 NEXT NOUN_NODE: REF DBGSNOUN_NODE, ! Temporary object. 

; 290 0419 STATOS; 

; 291 0420 

: 3 0421 
is @9 04 § BIND 

: 294 04 DBGSCS_CR = UPLIT BYTE (1, DBGSK_CAR_ RETURN), 
E 042% DBGSCSCOMMA = UPLIT BYTE (1. DBGSK-COMAA); 

5 38 ps 5 
le 
I; 8 $ ! Need to be sure that the user has provided some sort of input after 

3 +4 rs : , the verb. If not, construct message _vect and return. 

3 3ol 4 If DBGSNMATCH (.INPUT_DESC, DBGS$CS_CR, 1) 

3 02 0431 THEN 
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SIGNAL (DBG$_NEEOMORE); 


: Construct the first noun node. 
NOUN_NODE = DBGSGET_TEMPMEM (DBGSK_NOUN_NODE_SIZE); 


: Link in the noun node. 
VERB_NODECDBGSL_VERB_OBJECT_PTR] = .NOUN_NODE; 


Loop until input is exhausted. 


WHILE (NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1)) AND 
(-ANPUT_DESCLDSCSW_LENGTHT NEQ 0) DO 


! Attempt to parse the input_desc. If successful, dbg$nparse_address 
returns the address of an address expression descriptor. 


STATUS = DBGSNPARSE_ADDRESS (,INPUT_DESC, ADDRPIR, 
.DBG$GB_RADIX(OBG$B~RADIX_ INPUT] 
TOKENSK~TERM_COMMA,~ .MESSAGE_VECT); 


3 
SELECTONE .SYATUS OF 
SET 
4 
4 
& 
6 
6 
4 
& 
& 
4 


! If successful, then get the address bound to the entity 
! described by the address expression descriptor. Success 
; also implies the end of input. 


CSTSSK_SUCCESS): 


ADDRESS _DESC = DBGSGET_TEMPMEM (DBG$K_ADDRESS_DESC_SIZE); 

F NOT GET_ADDRESS_DESC (.ADDRPTR, .ADDRESS_DESC, .MESSAGE_VECT) 
RETURN STSSK_SEVERE; 

NOUN NODE LOBGSL_ROUN_VALUE J = .ADDRESS_DESC; 


' If a warning is returned, a comma may have been discovered in 

! the input stream. Check for this. f there is no comma, a 

' syntax error has occurred. If a comma is present, there must 

' be more input or else error. If all is OK, then get the address 
! bound to the entity described by the address expression. 

! descriptor. A warning implies further input, so must Link in 
another noun node. 


{STS$K_WARNING): 
If NOT DBGSNMATCH (.INPUT_DESC, DBGSCS_COMMA, 1) 
SIGNAL (DBGS_CMDSYNERR, 1, DBGSNNEXT_WORD (.INPUT_DESC)); 


4.0-7% Pece } 
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; 360 489 4 

3 1 oey : IF DBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1) 

3 o7 138 ? SIGNAL (DBGS_NEEDMORE) ; 

3 369 O82 4 poones DESC = DBGSGET_TEMPMEM (DBGSK_ADDRESS DESC_SIZE); 
§ 08 Bees : THEN GET ADDRESS DEST ¢ (.,ADDRPTR, .ABDRESS WDESC, 7 MESSA SAGE_VECT) 
: 368 0497 & RETURN STSS$K_SEVERE; 

: 369 0498 4 NOUN penoe Lopeat _ROUN VALUE] = . ADDRESS 

; 370 0499 4 NEXT NODE = DeGsctr TEMP MEM (DBGER. ae NODE_SIZE); 
. aay 0500 4 we “NODETDBGSL.N OUN_LIN i = .NEXT_NOUN_NODE; 
3 u 0501 4 NANODE = NERY ONOON _NODE 

ov 8208 

; 374 050 

; Te 0504 

; 376 0505 ! Anything else, return severe error. 

3 S77 0506 : 

; 378 0507 COTHERWISE): 

; 379 0508 4 N 

; 380 0509 4 RETURN STSS$K_SEVERE; 

; 381 0510 3 END; 

s 382 0511 3 

: 383 b2i¢ 3 TES; 

; «43846 051 

; 385 0514 

; 386 0515 ' End of WHILE Loop. 

s 3587 0516 3 ' 

; $5 0517 2 END; 

; 389 0518 2 

: 390 0519 2 

; 391 0520 § ' End of routine. 

; 0521 ! 

: 026 2 RETURN STSS$K_SUCCESS; 

3; «4594 0525 «1 END; 


01 QOO2E P.AAG: .BYTE 1, 13 
01 00050 P.AAH: .BYTE 1, 44 


DBGSCS_CR= P.AAG 
DBG$CS~COMMA= P*AAH 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 

O7FC 00000 ENTRY DGSNPARSE ppyneou ze. Save R2,R3,R4,R5.R6.~ ; 
9E o MOVAB téeslemde. R10 
9E 5B RR 
9E 19 MOVAB DBGSGET TEMPMEM., RB 
3 MOV DBGSNMATCH, R 
C 3 SUBL2 #4, SP 
DD 0002 a 


—fOOo"Oo 


.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
| 
| 


pas 
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| DBGSYMBLZ ibese “1984 02:41:46 AX-11 Bliss-32 V4.0-74 Page 12 
/YOe=000 12-08-1382 9 tats DEBUG. SRC IDBGS YMB (2.832;1 g 5) 
| 59 D PUSHL 9 ; 
52 046 A 8 H MOVL _INPUT_DESC, R2 : 
52 DD 9 PUSHL 3 
67 Fe B CALLS #3, DEGSNMATCH : 
| 09 E F BLBC ; 
00028000 8F dD 000 PUSHL #164048 + 0432 
6A 1 FB tH CALLS #1, LIBSSIGNAL 3 
| 4 DD A 1$: PUSHL #4 + 0437 
68 1 FB 0003C CALLS #1, DBGSGET_TEMPMEM : 
5 0 00 0003F MOVL RO. NOUN_NOB : 
50 08 AC DO 00042 MOVL VERB_NODE, R + 0442 
08 A0 1) BRee MOVL NOUN_NODE, 8(RO) : 
1 OO 4A 2% PUSHL #1 : 0447 
0206 8F BB 0004 PUSHR #*M<R2,R9> : 
| 67 03 FB 0005 CALLS a3, DEGSNMATCH : 
03 0 59 005 BLBC =—_s«aRO,. G&S : 
OOAD 31 0056 3$: BRW 10$ : 
62 8 0059 4$: TSTw = (R2) + 0448 
FS 13 00058 BEQL 3$ : 
0c AC dd 00050 PUSHL MESSAGE_VECT + 0457 
01 OD 4454 PUSHL a : 0455 
7E 000000006 00 9A 006¢ MOV ZBL DBGSGB RADIX, =-(SP) : 0456 
OC AE 9F 0006 PUSHAB PTR > 0455 
52 DD 0006C PUSHL ne : 
000000006 00 0 FB 00066 CALLS , DBGSNPARSE _ADDRESS : 
55 50 D 9007 MOVL RO. STA Tus : 
01 55 D1 00078 CMPL status, # + 0466 
1D 12 00078 BNEO : 
02 oD 0007D PUSHL Hs : 0468 
68 01 FB O007F CALLS #1, DBGSGET_TEMPMEM ; 
54 50 00 00082 MOVL RO. ADDRESS DESC : 
OC AC DD 0008 PUSHL MESSAGE_VECT > 0469 
54 DD 00088 PUSHL ADDRESS "DESC : 
08 Ar DD OOBA PUSHL ADDR : 
0000v CF 0 FB 0080 CALLS , GET_ADDRESS_DESC : 
6D 50 € 0092 BLBC ; 9$ ; 
63 54 D0 0009 MOVL § ADDRESS_DESC, (NOUN_NODE) > 047 
80 11 00098 5$ BRB > 045 
03 009A 6$ TSTL STATUS > 0484 
64 12 0009C BNEQ 6-9 : 
01 oD 000 PUSHL #1 > 0486 
02 AD 9F OODA PUSHAB DBGSCS_COMMA ; 
52 DD OOOA PUSHL ; 
67 Fe OA CALLS #3, DEGSNMATCH ; 
16 E A LBS r ; 
DD O00AB PUSHL > 0488 
000000006 00 1 FB OOOAD CALLS #1, DBGSNNEXT_WORD : 
0 DD 000B4 PUSHL R : 
1 DD 0086 PUSHL : 
00028688 8F DD PUSHL #167608 : 
6A 3 FB 00 BF CALLS a3, LIBSSIGNAL : 
1 DD 000Ci 7s: PUSHL #1 > 0490 
0206 &8F BB C3 PUSHR aan R2,R9> : 
; FB ¢ CALLS SGSNMATCH : 
9 E CA BLBC ; 
00028000 BF DD CD PUSHL @ . 48 > 0492 
A 1 FB 000D CALLS #1, LIBSSIGNAL : 
| 
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ro 


3 
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MOVL a “NOUN NODE, NOUN_NODE 
9$: MOVL a4, RO 
10$: MOVL #1, RO 


Oo 
= 


2 DD 06 8$ PUSHL 4 
$8 FB D ALLS #1, DBGSGET_TEMPMEM 
4 0 D DB MOVL RO. ADDRESSDESC 
0c AC OD DE PUSHL MESSAGE_VECT 
54 DD O00E PUSHL  ADDRESS"DESC 
08 A DD €3 PUSHL 1 at 
0000v CF FB £6 CALLS #3, GET_ADDRESS_DESC 
14 E EB BLBC 
63 4 DO OOOEE MOVL § ADBRESS_DESC, (NOUN_NODE) 
4 0D O00F1 PUSHL wh 
68 1 FB O00F3 CALLS #1, DBGSGET_TEMPMEM 
5 0D O0F6 MOVL RO. _NEXT_NOON_NODE 
08 A 6 D OF MOVL NEXT_N BURY NNODE™ 8 (NOUN_NODE ) 
5 56 DO 000FD 
96 11 001 
04 00 0010 
04 0010 
DO 00106 
04 00109 


| 
50 
50 
3; Routine Size: 266 bytes, Routine Base: DBGSCODE + 0080 
| 


oO 
@ 


es $$ 
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10388-1982 $3itdi 9 {DEBUG. SRC IDBGSYMBL?-B32;1 9 6) 
GLOBAL ROUTINE DBGSSEARCH_BIN_SAT (BASE_NODE, ADDRESS 
MACRO_OR_SHARE_FLAG, PSECT_FLAG)= 


FUNCTION 
This routine searches a Linked SAT List starting at BASE_NODE 
and returns a pointer to a SAT entry containing ADDRESS Tor zero 
if no SAT entry was found). 


This routine is called to search a module-level SAT. It is called 
by DBGSSEARCH_PROG_SAT. 


The SAT chain that this routine searches is a Linked List which 
is sorted by start address of the symbol. We just loop through 

the List Look ing for the static symbol which contains the given 
address and is the best match. 


409 


On a Linear SAT, which we currently have, 

this routine is functionally equivalent to DBGSSEARCH_BIN_SAT_REC. 
The _REC routine is more general in that it also accepts a SAT 
which is organized as a binary tree. However, until we start 

py eine binary tree SATs, we will stick with this routine. : 
The _REC routine differs in implementation in that it is recursive, 
which can be a problem in that it uses a lot of stack. 


INPUTS 
BASE_NODE - The base of the SAT List 
ADDRESS = The desired address. 
MACRO_OR_SHARE_FLAG= True for Language MACRO and also true 
for static address chains that come from shareable 


images. 
PSECT_FLAG- Says whether it is OK to symbolize to a PSECT. 
OUTPUTS 
A pointer to the found SAT entry is returned. 
Zero is returned if no SAT entry was found. 
BEGIN 


OCAL 
BEST_SATPTR: REF SATSENTRY, 
SATPTR: REF SATSENTRY; 
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; 4 
; 4 
> 4 
; 4 
3; 4 
; 4 
; 4 
; 4 
3 § 
; 4 
; 4 
; 4 
; 4 
; 4 
; 4 
s «4 
; 4 
3 «6 
3 4 
; 4 
; 4 
; 4 
; 4 
3 4 
; 4 
; 4 
; 4 
3 66 
; 4 
; 4 
; 4 
; 4 
; 4 


22 Loop through the SAT chain. 
6 6 BEST_SATPTR = 0; 
4 56 SATPTR = .BASE “ryt 
57 WHILE .SATPTR REQ 0 DO 
44 57 BEGIN 
444 57 
445 57 
446 57 ! If the address we are looking for is before the current SAT entry 
a 2 then stop searching. 
449 57 IF .ADDRESS LSSA .SATPTRCSATSL_START) 
450 57 THEN 
451 57 EXITLOOP; 
452 58 


| 
| 
| 
| 
! 
| 
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$ep-1984 02:41: AX-11 Bliss-32 v4.0-74 
at fi 9 tpi eg DEBUG. SRC IDBGSYMBLZ -B3 37 


> 453 1 

: 634 Re ! Choose this symbol if its range covers the address. Don't choose 
; 455 ! psects unless PSECT_FLAG is set. Don't check the end address 
3 $2 bene for Language MACRO or for symbols from shareable images. 

; 628 0386 ; IF, ,PSECT.FLAG OR (NOT IS_SYMBOL_PSECT(.SATPTRISATSL_RSTPTRI)) 
; 460 0388 4 IF .MACRO_OR_SHARE_FLAG OR (.ADDRESS LEQA .SATPTRCSATSL_END]) 
> 461 0589 THEN 

; 46 0590 BEST_SATPTR = .SATPTR; 

; 46 0591 

: 464 §23¢ 

; 4465 59 ! Link to next SAT entry. 

; 466 0594 : 

; 467 0595 SATPTR = .SATPTRCSATSL_FLINKI; 

; 468 0596 END; 

3; 469 0597 

: 470 0598 ; 

: 471 0599 ! Return the SATPTR we have found. This will be zero if we 

: 472 0600 ! fell out of the loop not finding a match. 

; 473 0601 2 : 

3 474 0602 2 RETURN .BEST_SATPTR; 

3 «475 06035 1 END; 


000C 00000 «ENTRY DBGSSEARCH BIN_SAT, Save R2,R3 
000 BEST_SATPTR 


53 04 00002 CLRL * 
52 04 AC DO 00004 MOVL ASE“NODE, SATPTR 
29 13 00008 1$: BEQL 
04 A2 08 AC D1 OO00A CMPL ADDRESS, 4(SATPTR) 
22 1F OOOOF BLSSU 
0B 10 AC €8 00011 BLBS PSECT_FLAG, 2$ 
0C A2 DD 00015 PUSHL  12(SATPTR) 
0000v CF or FB 00018 CALLS #1, IS_SYMBOL_PSECT 
3 0 €8 0001D BLBS se 
0 Oc AC €8 00020 28: BLBS § MACRO_OR_SHARE FLAG, 3$ 
08 A2 08 aC D1 00024 CMPL ADDRESS, ~B(SATPTR) 
9 1A 00029 BGTRU 
53 DO 00028 3$: MOVL SATPTR, BEST SATPTR 
52 62 DO OO02E 4$: MOVL (SATPTR), SATPTR 
p 11 00 1 BRB 1$ 
50 d0 3 5$: MOVL #$BEST_SATPTR, RO 
04 000 RET 


; Routine Size: 55 bytes, Routine Base: DBGSCODE + 0197 
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yO 2000 1o=8e8 1382 9 :17:5 DEBUG. SRC IDBGSYMB O7B85s1 . (7) 
ras LOBAL ROUTINE DBGSSEARCH_PROG_SAT (BASE_NODE, ADDRESS, BYTE_OFFSET) = 
479 FUNCTION 
480 


This routine searches the Eoerenseens 
SAT List etert ing at BASE_NOD 

and returns a pointer to fhe SAT entry which contains ADDRESS 
and whose start address is closest to ADDRESS. (or zero 

if no SAT entry was found). 


This routine walks the Linear List of program-level SATs, finding 
one whose range covers the given address. Then, for each one of 
those that it finds, it calls DBGSSEARCH_BIN_SAT to search the 
module-level SAT for the closest symbol whose address range 
covers the given address. 


On a Linear SAT, which we currently have, 

this routine is functionally equivalent to DBGSSEARCH_PROG_SAT_REC. 
The _REC routine is more general in that it also accepts a SAT 
which is organized as a binary tree. However, untii we start 

put leion binary tree SATs, we will stick with this routine. 

The _REC routine differs {n implementation in that it is recursive, 
which can be a problem in that it uses a lot of stack. 
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: 1 
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$ 1 

3 1 

$ 1 

s 6 1 

3; 5 1 INPUTS 

3; > 1 BASE_NODE - The base of the SAT List 

; 208 1 ADDRESS = The desired address. eat 

: i - eturn the byte offset associated with the symbolization 

50 1 BYTE_OFFSET R he b ff i d with th bol 

3 208 ' in this address. 

; 506 1 ! OUTPUTS 

; 507 1 A pointer to the found SAT entry is returned. 

3 308 : Zero is returned if no SAT entry was found. 

; $10 § BEGIN 

s STi LOCAL 

: 2i¢ BEST_SATPTR: REF SATSENTRY, 

a BEST OFFSET, 

3 6516 64 OFFSET 

3; 515 64 MODRSTPTR: REF RSTSENTRY, 

; 516 064 SATPTR: REF SATSENTRY 

; 317 064 TEMP_SATPTR: REF SATSENTRY; 

3; $19 bee 

3 331 29% : Loop through the SAT chain. 

Ss § b628 BEST_SATPTR = iF 

3 5 0650 BEST-OFFSET = 999999999; 

; é 4 651 SATPTR = .BAS NOOK: 

5 5 034 WHILE .SATPTR REQ 0 DO 

ee $ 5 BEGIN 

; 8 36 

3 oy 2$ ' If the address we are looking for is before the current SAT entry 
3 ? : then terminate the search. 

: 4 38 IF .ADDRESS LSSA .SATPTRCSATSL_START) 

: 0 THEN 


ee 


<2 
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EXITLOOP; 


FISTS 
ao 
ao 

—_ 


' If the address we are looking for Lies within the current 
} program-level SAT then search the module-level SAT. 


IF .ADDRESS LEQA .SATPTRCSATSL_END) 
THEN 


BEGIN 
MODRSTPTR = .SATPTRCSATSL_RSTPTRI; 
—— RST$V_MODSET] 


BEGIN 
TEMP_SATPTR = DBGSSEAR 
.MODR _SAT_PTRI, 


LANGUAGE] EQL DBGSK_MACRO) OR 
SHARE_IMAGEJ, 


the module-level search yielded a candidate, choose 
if it is a closer match than the best so far. 
- TEMP_SATPTR NEQ 0 


i” 
m 
2 


ADDRESS = ph ps 


=. SATPTRCSATSL_START); 
FSET LSS .BEST_OFFSET 
I 


E 


AOQOMMUIMMNMIUIMIUIVIE BEERS E LL SS 
WN $9 COONAN E WN OC OONOU EWN OOOnou 
Oo 
ao 
~ 
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GIN 
ST_SATPTR = .TEMP_SATPTR; 
STIOFFSET = LOFFSET; 

F 


OFFSET EQL .BEST_OFFSET 


o 
w 
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o 
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Link to the next SATPTR and loop. 
SATPTR = ,SATPTRCSATSL_FLINK); 


Return the best candidate. 
if .BEST_SATPTR NEQ 0 
-BYTE_OFFSET = .BEST_OFFSET; 
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| DBGSYMBLZ 16*Sep-1984 02:41:46 AX-11 Bliss=32 V4.0-74 Page 18 
04-000 12-08-1880 eta DEBUG. SRCIOBGSYMBL S645; 1 alt 5: 
> 591 O718 2 RETURN .BEST_SATPTR; 
E 392 O15 1 END; a 
OOFC 00000 .ENTRY DBGSSEARCH_PROG_SAT, Save R2,R3,R4,R5,R6,R? ; 0604 
| 55 D4 00002 CLRL ~—_ BEST : 0649 
56 3B9ACOFF F DO 00004 MOVL  #999999999, BEST OFFSET + 0650 
| § 04 AC DQ 00008 MOVL _BASE_NODE, SATPTR t 0681 
58 1 000F 1$: BEQL : 065 
046 a3 08 Ac pi 0011 CHPL ADDRESS, 4(SATPTR) : 065 
08 AB 08 AC OT G0018 CMPL ADDRESS, 8(SATPTR) + 0667 
45 1A 0001D BGTRU ; 
52 oc ad DO 0001f MOVL _12(SATPTR), MODRSTPTR : 0670 
3p 28 a2 €9 000 3 BLBC 4O(MODRSTPTR), 4$ : 0671 
7E D4 000 CLRL = = (SP) + 0674 
51 D4 00029 CLRL sR : 0677 
29 Ag 95 00028 TSTB  41<MODRSTPTR) : 
0 12 0002€ BNEQ 2$ : 
1 06 00030 INCL = RI ; 
57 28 =A 01 04 EF 00032 2s: EXTZV #4, #1, 4O(MODRSTPTR), R7 : 0678 
7E 51 57 C€9 00038 BISL3 R7, R1, =(SP) : 
| 08 AC DD 0003Cc PUSHL ADDRES + 0676 
18 A2 DD 0003F PUSHL 24(MODRSTPTR) : 0675 
83 AF 04 FB 00042 CALLS #4, DBGSSEARCH_BIN_SAT : 
50 DS 00046 TSTL TEMP_SATPTR > 0684 
1A 13 00048 BEQL © 4$ ; 
54 08 ac 04 Ad C3 0004A SUBL3 4(TEMP_SATPTR), ADDRESS, OFFSET > 0687 
SB 54 01 00050 CMPL OFFSET: BEST_OFFSET : 0688 
09 «19 00053 BLSS $ ; 
0D 12 0005 BNEQ 4$ > 0694 
08 aS 08 ad 01 00057 CMPL §8(TEMP_SATPTR), 8(BEST_SATPTR) > 0697 
06 18 0005¢ BGEG 6 4$ : 
55 50 p00 OO0SE 3$: MOVL _TEMP_SATPTR, BEST_SATPTR : 0700 
36 54 DO 00061 MOVL OFFSET, BEST_OFFSET : 0701 
5 63 DO 00064 4$: MOVL (SATPTR), SATPTR : 0710 
Aé 11 00067 BRB 1 ; 0652 
5 D3 00069 5$: TSTL BEST_SATPTR : 071 
04 1 00068 BEQL 6$ ; 
oc BC 56 D0 006 MOVL  BEST_OFFSET, @BYTE_OFFSET : 0717 
50 55 00 000 1 68: MOVL § BEST“SATPTR. RO : 0718 
04 00074 RET : 0719 


; Routine Size: 117 bytes, Routine Base: DBGSCODE + OICE 
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| DBGSYMBLZ 1§- ep-1984 02:41:4 AX-11 Bliss-32 v4.0-74 Page 19 
¥Oe2000 o28e8= 1 38c Ogi big8 DEBUG. SRC IDBGSYMBLZ.83 31 . (8) 
| 
is 59% 0720 1 GLOBAL ROUTINE DBGSSEARCH_BIN_SAT_REC (BASE_NODE, ADDRESS 
: 595 721 1 MACRO_OR_SHARE_FLAG, PSECT_FLAG)= 
> 596 7 § 3 
s Fr 7 1 ! FUNCTION 
; 598 0724 1! This routine searches the binary SAT tree starting at BASE_NODE 
; 599 0725 1! and returns a pointer to a SAT entry containing ADDRESS (or zero 
3 eit 8 $ : } if no SAT entry was found). 
; on 0728 1! This routine is called to search a module-level SAT. It is called 
; 603 o7 4 ! by DBG$SEARCH_PROG_SAT. 
: 605 O75) 3 4 The tree is organized so that at any point in the search, if we 
3 one 07 ¢ 1! are at node NODE, then: If the desired address is less than the 
; 60 07 1 ! range in NODE, then follow the RIGHT_SON Link. If the desired 
; 608 0734 1! address is greater than the range in NODE, then follow the 
; 609 Ofs> + 3 LEFT_SON Link. If we try to follow a Link and the Link is zero 
; 610 th 1! then we failed to find a a SAT entry. 
: at; ta t4 : If the address is in the range, then of course we are done. 
: £18 0739 1! This routine is designed so that it will work on the ‘‘old’’ Linear 
3 614 0740 1! list data structure (this just being the extreme case of an 
; 615 0741 1! unbalanced tree). However, for now we are still calling the 
; 616 3544 iz old non-recursive search sat routines. This one is not yet 
> 617 0745 1! being used. 
; 618 0744 1! 
; 619 0745 1 ! INPUTS 
; 620 0746 1! BASE NODE - The base of the SAT tree 
; 621 0747 1! ADDRES - The desired address. 
; 622 0748 1! MACRO_OR_SHARE _FLAG- True for Language MACRO and also true 
; 623 0749 1! for static address chains that come from shareable 
> 624 Orso 7? images. , : 
; 625 0751 1! PSECT_FLAG- Says whether it is OK to symbolize to a PSECT. 
; 626 O78 7% 
; Ger 0753 1 ! OUTPUTS ; 
; 628 0754 1! A pointer to the found SAT entry is returned. 
; 629 0755 1! Zero is returned if no SAT entry was found. 
; 630 0756 1! 
3 65) 0757 BEGIN 
; O36 0758 
; 63 0759 BASE_NODE: REF SATSENTRY; 
; 634 0760 L 
; 635 0761 SATPIR: REF SATSENTRY; 
; 636 b76¢ 
B 6OoT gre ! Bottom level of the recursion. 
; 638 764 : 
; 639 Bree IF .BASE_NODE EQL 0 
; 640 7 THEN 
3 641 076 RETURN 0; 
3 oe 0768 , 
: 646 076? ! Jf the address we are looking for is before the current SAT entry 
3 %*? p700 then follow the left son. 
3 “< Ore if ,hOOness LSSA .BASE_NODECSATSL_START) 
3; 648 0774 RETURN DBGSSEARCH_BIN_SAT_REC(.BASE _NODECSATSL_LEFTSON], . ADDRESS, 
S649 775 “MACRO_OR_SHARE_FLAG, .PSECT_FLAG); 
; 650 0776 


a ee oe ee oe ee ee oe ee ee oe ee ee ee ee ee oe a oe | 
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/V04-000 o=8e-138e 1 Tbi89 DEBUG. SRCIDBGSYMBL? .635;1 . BS 
s 63) 0777 ! If the address we are looking for falls after the start of the 
; ¢ ¢ pre ! current SAT entry then follow the right son. If this search 
; oer 1464 yields a matching SAT then return it. 
3 63> 0781 SATPTR = DBGSSEARCH_BIN_SAT_REC(.BASE_NODECSATSL_RIGHTSON], .ADDRESS, 
; 656 O78¢ -MACRO_OR_SHARE_FLAG, .PSECT_FLAG); 
; 657 078 IF .SATPTR NEQ 0 
; 658 Bree THEN 
; 659 785 RETURN .SATPTR; 
; 660 o7ee 
: $0) 1444 Don't symbolize to PSECTs unless PSECT_FLAG is set. 
; £8 $789 if (.PSECT_FLAG) OR 
3 664 0790 (NOT IS-SYMBOL_PSECT (.BASE_NODECSATSL_RSTPTRI)) 
; 665 0791 THEN 
; $66 079 BEGIN 
> 667 079 
; 668 0794 ! Check for the address being in the range of the SAT entry. 
; 669 079 ' But, in Lenguege MACRO, choose this symbolization = don't 
> 670 0796 ! do the check for the address being in the correct range. 
; 671 0797 ' Also, don't do this check for shareable image modules. 
; Of 0798 ; ! The reason is that in these cases we do not get the right 
3 oh 3444 } Length information for the static item. 
; 675 0801 : IF .MACRO_OR_SHARE_FLAG OR 
; 676 980 4 (. ADDRESS CEQA .BASE_NODECSATSL_END)) 
; 678 0804 : RETURN .BASE_NODE; 
; 679 0805 2 END; 
; 680 08 § 
; 681 0807 ! Failed to find a match. Return 0. 
3 2 0808 2 : 
; 683 0809 2 RETURN 0; 
; 684 0810 1 END; 
0004 00000 ENTRY DBGSSEARCH_BIN_SAT_REC, Save R2 ; 0720 
52 04 ag 00 00002 MOVL BASE _NODE, R2 ; 0765 
45 1 OR88 BEQL : 
04 = A2 08 aC 01 000 CMPL ADDRESS, 4(R2) 3 0772 
OF IE 8200 BGEQU : 
7€ Oc AC 7D f MOVQ = MACRO_OR_SHARE_FLAG, -(SP) ; 0775 
08 AC 0D 00013 PUSHL ADDRESS : 0774 
| 10 A2 OD on t8 PUSHL 16(R2) : 
—E3 AF 04 FB 6 19 CALLS #4, DBGSSEARCH_BIN_SAT_REC ; 
7E oc ac % 1E 1$: MOVQ $MACRO_OR_SHARE_FLAG, -(SP) ; 0782 
08 ac OD PUSHL ADDRESS ; 0781 
62 0D PUSHL (R2) 3 
DS) soAF 4 FB 00 CALLS #4, DBGSSEARCH_BIN_SAT_REC ; 
| 9 D 8 TSTL safetR ; 0783 
| 08 10 A f F Bes PSECT_ FLAG, 2% : 9789 
Oc A2 0D 00053 PUSHL 1StROY ; $780 
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| 0000v CF e, 6 CALLS i. 1. 18. SYMBOL _PSECT : 
F 0 € BLBS : 
? oc AC 28: BLBS Rd; 4 OR ~ SHARE FLAG, 3$ ; 0801 
08 A2 AC 01 00 CMPL ADDRESS 7B 3 0802 
4 1A 9004 BGTRU 4$ ; 
50 2 DO 00049 38: MOVL 2, RO + 0806 
04 0004C¢ RET : 
50 04 00040 4$: CLRL = RO + 0810 
04 OO04F S$: RET : 


; Routine Size: 80 bytes, Routine Base: DBGSCODE + 0243 


Fun -OOOnouvfwn— 


SNS SS 
POPOPOPURS 2 st 


725 


COOCGCWVCOCGDOCOCOCO COSCO COOOOOOOOCOOCOOOoOO 
© C9 C9 Cd Co CD CD OD OD Cd CD CD Cd 00 0D C9 CD C0 CD OD Cd OD C9 CO. CD C9 CD CD CD CD CD 
SF AAAWM AAMAS PIPPIN NINNINDY 2 OO es es 


—OODNAUE UN (OO ONOUNE AN" O OONOU wr 


084 


‘G2 0d Cd Od Od Od Od Cd CD Go Co 
PAA A AMA & & 
fun —-0O0ew 


MEW —O OOnOu 


ROO OO 


OOCOCOOOCOCOOOOOOoOoooO 
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LOBAL ROUTINE DBGSSEARCH_PROG_SAT_REC (BASE_NODE, ADDRESS, BYTE_OFFSET) = 


FUNCTION 
This routine searches the binary program-level 
SAT tree Stert ing at BASE_NODE 
and returns a pointer to fhe SAT entry which contains ADDRESS 
and whose start address is closest to ADDRESS. (or zero 
if no SAT entry was found). 


The tree is organized so that at any point in the search, if we 
are at node NODE, then: If the desired address is less than the 
range in NODE, then follow the LEFT_SON Link. If the desired 
address is greater than the range in NODE, then follow the 
RIGHT_SON Link. If we try to follow a Link and the Link is zero 
then we terminate the search. 


Once a candidate program-level SAT is found, this routine calls 
SEARCH_BIN_SAT to search the module-level SAT. 


This routine is designed so that it will work on the ‘‘old’’ Linear 
list data structure (this just being the extreme case of an 
unbalanced tree). However, for now we are still calling the 

old non-recursive search_sat routines. This one is not yet 

being used. 


The routine is intended to be a replacement for the DBGSSEARCH_SAT 
routine. 


INPUTS 
BASE NODE - The base of the SAT tree 
ADDRESS = The desired address. . Se 
BYTE_OFFSET = Return the byte offset associated with the symbolization 
in this address. 


OUTPUTS 
A pointer to the found SAT entry is returned. 
Zero is returned if no SAT entry was found. 
BEGIN 


MAP 
BASE_NODE: REF SATSENTRY; 


Ne | 


CAL 
OFFSET, 
OFFSET’ 1 
MODRSTPTR: REF RSTSENTRY, 
SATPTR: REF SATSENTRY 
SATPTR_1: REF SATSENTRY; 


Bottom level of the recursion. 
IF .BASE_NODE EQL 0 
RETURN 0; 


! Jf the address we are looking for is before the current SAT entry 
! then follow the left son. 


——_——_————_- 
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! If the address we are looking for falls after the start of the 
current SAT entry then follow the right son. 


SATPTR = DBGSSEARCH_PROG_SAT_REC(.BASE_NODECSATSL_RIGHTSON], .ADDRESS, OFFSET); 


! If the address we are Look tng for also lies within the current 
program-level SAT then search the module-level SAT. 


IF -ADDRESS LEQA .BASE_NODECSATS$L_END) 


Se Be Be Be Oe Oe marten cies Be Se Se Se Oe Ge Se Se Fe Ge Be Ge Se Be Se Ge Se Ge Ge Ge Ge Se Se Ge Se Se Fe Se Se Se Ge Se Se Se Se FH Ge HSH Se SHS Se GHGs Bee 

ANN 
NN 

— 
ooo 
C000 00 
ooo 
ono 


TPTR = BASE WODECSATSL LRSTPTRI; 
ire RRODRSTPTR RSTSV_MODSETJ 


THEN 
SATPTR_1 = DBGSSEARCY ply SAT_REC ( 
PTRCRSTSL_SAT_PTRI, 


ADDRESS 
(.MODRSTPTRERST$B_LANGUAGE) EQL DBGSK_MACRO) OR 
; Pe Yada RST$V_ SHARE _IMAGE]), 
SE 
SATPTR_1 = 0; 
Lr. 1 NEO 0 
D: OFFSET_1 = .ADDRESS = .SATPTR_1CSATSL_START); 
' If both of our candidate SATPTR's are zero then we have failed 
to find a match so return zero. 
if (.SATPTR EQL 0) AND (.SATPTR_1 EQL 0) 
RETURN 0; 
: If only one candidate is zero then return the other one. 
if .SATPTR EQL 0 
THEN 
BEGIN 
-BYTE_OFFSET = .OFFSET_1; 
aETURR -SATPTR_1; 
IF SATPTR. 1 €QL 0 
THEW 


BEGIN 
-BYTE wth OFFSET; 


' 

if , ADDRESS LSSA .BASE_NODECSATSL_STARTJ 

RETURN AI I eS -ADDRESS, 
3 

2 

RETURR 

END; 


DODODOOOOOOOOO0VO0NO 


| 
~o 
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: Both are non-zero. Return the one with the smaller offset. 
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: 800 925 IF OFFSET LSS .OFFSET_1 

; 801 9 § THEN 

; 0 9 BEGIN 

; 80 9 8 -BYTE_OFFSET = .OFFSET; 

; 804 09 RETURN .SATPTR; 

; 805 0930 END; 

: 806 0931 IF .OFFSET GTR .OFFSET_1 

; 80 09 $ THEN 

; 808 09 BEGIN 

3; 809 0934 -BYTE OFFSET = .OFFSET_1; 

; 810 0935 RETURN .SATPTR_1; 

: 811 08 § END; 

; aig G 

; Hy 344 } The offsets are equal. Return the one with the smaller end address. 
: B15 0940 if .SATPTRCSATSL_END] LSS .SATPTR_1LSAT$L_END) 
: 816 0941 THEN ra =. = 
: 817 094 BEGIN 

; 818 094 -BYTE_OFFSET = .OFFSET; 

: 819 0944 RETURN .SATPTR; 

; 820 0945 3 

: 821 0946 LSE 

3 oc¢ 0947 BEGIN 

: 82 0948 -BYTE OFFSET = .OFFSET_1; 

3; 824 0949 RETURN .SATPTR_1; 

; 825 0950 2 END; 

; 826 0951 +1 END; 


001¢ 00000 .ENTRY DBGSSEARCH_PROG_SAT_REC, Save R2,83,R4 : 0811 
SE 04 C2 0000 SUBL2 - : 
52 04 AC 60 0000 MOVL § BASE_NODE, R2 + 0862 
68 13 00009 BEQL : 
53 08 ac dO 90008 MOVL ADDRESS, R3 > 0869 
04 A2 53 01 0000F CMPL = R'3, 4 (RD) : 
Od iE 90013 BGEQU ; 
0c AC DD 00015 PUSHL BYTE_OFFSET > 0872 
53 DD 00018 PUSHL R > 0871 
10 Ag DD OOO1A PUSHL 1gcR2) : 
DF OA 0 FB 9010 CALLS #3, DBGSSEARCH_PROG_SAT_REC ; 
4008 8F 6B $8 1$: PUSHR #*M<R3,SP> : 0877 
6¢ DD 00 PUSHL (R2) : 
D4 oF FB 00 CALLS #3, DBGSSEARCH_PROG_SAT_REC : 
54 g DO 0002C MOVL RO. SATETR : 
08 A2 D1 O002F CMPL) =—seaR3,. BC R2) > 0882 
4 1A 0 BGTRU 53 : 
50 Oc ag D9 MOVL 2c ), MODRSTPTR : 0885 
21 AO £9 000 BLBC 40(MODRSTPTR), 3$ > 0886 
ze D4 00030 CLRL 3s = ( SP > 0888 
5 ps 0 f CLRL sR > 0891 
29 «OA 3 41 TSTB 41 (MODRSTPTR) : 
9 12 00044 BNEQ 2$ : 
D6 00046 INCL = RI : 


De Oe Oe Oe Oe Oe Be Oe Oe Oe BHR. E+ He 


DBGSYMBLZ 
v0s-000 


52 


; Routine Size: 


154 bytes, 


28 = =A0 


7E 
FF54 
51 
08 
oc 
0c 
Routine 


CF 


53 


Base: 


18 


04 


08 


OF OOP OW VIMOUNM FP OVIMOO FP VW"O0 
fF FRMOMMOWNOWCS FWOMOON FOUN S 


w 
— #£mo 


50 


} 4 

16-Sep-1 
14-Sep-1 

EF 00048 2$: 

C9 o 

0D 

A Se 

8 ¢ 

D4 00 3$: 

) 36 4$: 

1 6 

C 064 

Be 4904 5$: 

13 boosp 

i) 4 

D5 00071 

1 tes gs: 

E Boe! $: 

D5 00078 

1 Boor a 

D1 0007C 

19 OOO7F 

14 aie d 

D1 00083 

18 00088 

DO OOOBA 8$: 

DO OO08E 

04 00091 

DO 00092 9$: 

04 80038 

D4 00097 108: 

04 00099 


DBGSCODE + 0293 


3 


“4: 


4 
1 


r; 
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#4, #1, SOCMODRSTPTR), R2 
R2, R1, =(SP) 


24 (MODRSTPTR) 
#4, DBGSSEARCH_BIN_ SAT_REC 


SATPTR_1 
ATPTR=1 


4 
4(SATPTR1), R3, OFFSET_1 
SATPTR 

4 

R3 

SATPTR_1 

10$ 

R3, 9$ 

AfprR.1 

OFFSET, OFFSET_1 
8$ 


9$ 
srrers 8(SATPTR_1) 


OFFSET, @BYTE_OFFSET 
SATPTR. RO 


OFFSET_1, @BYTE_OFFSET 
RO 


row 


0892 


890 
889 


088 
89 
896 


0898 
0904 
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H $ 2 § ! GLOBAL ROUTINE DBGSSEARCH_GLOBAL(ADDR, P_SYMID, P_BIT_OFFSET, PRINT_FLAG) = 
; 0 954 1 ! FUNCTION 

3 1 955 1! This routine searches the GLOBAL symbol chain in an attempt to 

; : ¢ 8328 : symbolize the address. 

3; § 8338 1! NOTE: This routine is searching the whole Global symbol chain 

; 835 0959 1! if the proper lobal symbol is not found. If we can be sure 

; 8 0960 1! the global symbol chain is ordered. We can stop the searching 

; Be 0961 1! as soon as we have passed the address range. 

; 838 0962 1! 

; 839 965 1 ! INPUTS 

; 840 964 1! - Address Descriptor. 

> 841 0965 1! ; 

: Hk: 0966 1! P_SYMID - The address of a longword location to receive the 
> «84 0967 1! unique symbol RST pointer. 

; 844 0968 1! 

; 845 0969 1! P_BIT_OFFSET - The bit offset off of P_SYMID. 

> 846 0970 1! 

; 847 0971 1! PRINT_FLAG - If false, no output will be done. If true, then 
; 848 0972 1! the symbolization of the virtual address will be 
> 849 09735 1! output to the terminal. 

; 850 0974 1! 

; 851 0975 1 ! OUTPUTS 

: B26 0976 1! If successful, the routine prints the symbolization of the address 
s 8 0977 1! (if the print flag was set). P_SYMID contains the RST pointer of 
3 854 0978 1! the symbol that matched. P_BIT_OFFSET contains the bit offset. 

3; 855 0979 1! The routine returns TRUE. Tf the address is not found in the 

; 856 0980 1! Lobal Syabol chain, then P_SYMID is zero and P_BIT_OFFSET is set 
; 857 0981 1: o the bit offset field from ADDR. 

; 858 0982 1! 

; 859 0983 1 

; 860 0984 2 BEGIN 

; 861 0985 2 

; 86 0986 MAP 

: 0987 ADDR: REF DBGSADDRESS_DESC; 

; 0988 

; 865 0989 

; 0990 SYMID = .P_SYMID: REF RSTSENTRY, 

; 867 0991 BIT_OFFSET = ,P_BIT_OFFSET; 

; 868 099 

; 869 099 LOCAL 

; 870 0994 ADDRESS : Byte Address 

; «871 94 BEST_MATCH VALUE, ! The best match value we found 

; 87 124 BYTE OFFSET, ! Byte offset 

; 87 099 DSTPTR: REF DSTSRECORD, ' Pointer to DST record in GST 

: 874 998 GSTPTR: REF RSTSENTRY, ' GST RST pointer 

3; 875 999 GST_VALUE, ' GST value 

3 g76 1000 NAME: REF VECTORC,BYTE); ! Pointer to counted ASCII string 
; 878 100 

3; 879 100 ADDRESS = .ADDRCDBGSL_ADDRESS BYTE_ADDR); 

3 1 BIT_OFFSET = .ADDR DBGSL_ADDRESS_BIT_OFF SET); 

3 1 19 5 BYTE oer set = 0; 

; 88 1 SYMIB = 0; 

3 8 100 GSTPTR = .RSTSSTART_ADDRCRSTSL_SYMCHNPTR); 

; 884 1008 WHILE TRUE DO 


————____— 
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; 885 1009 BEGIN 
: Be 1919 
3 tt } \¢ Check to see if we have no more Global Symbols. 
; 890 1014 F .GSTPTR EQL 0 THEN EXITLOOP; 

: 91 1015 ABORT _ON_CONTROL_Y; 

: B9 1016 GST_VACUE~= GSTADDRESS(.GSTPTR); 

; 89 101 

; 894 1318 

; 895 101 ' First check for an exact match because then 
3 £38 + ? : we can abandon any further Looking. 

; 898 10 ¢ IF .ADDRESS EQLA .GST_VALUE 

; 899 10 THEN 

; 900 1024 4 EG 

; 901 1025 4 SYMID = .GSTPTR; 

; 90 10 § 4 EXIT 3 

; 90 10 ; END; 

: 904 1028 

; 905 1968 

3 308 + Inexact matches are still better than nothing. 
; 908 1032 IF .ADDRESS GTRA .GST_VALUE 

; 909 103 THEN 

; 910 1034 4 BEGIN 

; 911 1035 4 

3 a 1036 4 

s 91 1037 4 ' A match. See if we already have one. If we do not have 
; 914 1038 4 ! one, Any one is better than none. 

; 915 1039 4 ' 

; 916 1040 4 IF .SYMID EQL 0 

3; 917 1041 4 
; 918 Hk 4 4 SYMID = .GSTPTR 
; 919 1045 4 
: 920 1044 4 
: 921 1045 4 ' Take the new one only if this symbol 
: 356 1046 4 ' is closer than the previous best one. 

; 3s 1047 4 ‘ 

: 926 1048 4 ELSE 

; 925 1049 5§ BEGIN 

; 926 1050 § BEST_MATCH VALUE = GSTADDRESS(.SYMID); 
: 927 1051 IF .BEST_MATCH_VALUE LSSA .GST_VALUE 
: 928 1038 THEN 

: 929 105 SYMID = .GSTPTR; 

; 9 1054 4 END; 

3 «6931 1055 4 

3 336 1936 END; 

3; 9 105 

; ¢§ 1938 

3 oer 1973 Go back and process the next record. 

; 339 1061 GSTPTR = .GSTPTRCRSTSL_SYMCHNPTR3; 

; 938 1 § END; 

; 939 1 

: 940 H+ ¢3 

3 (961 1065 ' If we didn't find any possible match, 


---—- 
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} return failure status. 
if .SYMID EQL 0 
THEN 


RETURN 0; 


BEST_MATCH VALUE = GSTADDRESS(.SYMID); 
BYTE-OFFSET = .ADDRESS = .BEST MATCH ee 
IF .BYTE_OFFSET EQL .ADDRESS TREN RETURN 0; 


! If the BEST_MATCH_VALUE is not in the range cover by the MODULE and 
: if the offset is Too large, don't take it. 


if .BYTE_OFFSET NEQ 0 
THEN 


BEGIN 
IF NOT (. ADDRES -OWN_MODULE_B 


S GEO EGIN AND 
-ADDRESS LEQ .OWN-MODULE—END) 


BEGIN 
IF .BYTE_OFFSET GTR %Xx°1000° 
THEN 


SYMID = 0; 
BYTE OFFSET = 0; 
RETURN 0; 


OOO OW WWW WOW NI NIN SIN NNN SIOO OO 
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BIT_OFFSET = .BIT_OFFSET * .BYTE_OFFSET © 8; 
RETORN TRUE ; 


vA 
4 
3 
4 
4 
4 
5 
5 
5 
5 
4 
3 
END; 


09 
971 09 END: 
9 é 09 
9 09 
974 09 
975 09 IF .PRINT_FLAG 
976 10 THEN 
977 10 IN 
978 10 DBGSPRINT (UPLIT BYTE (ZASCIC ‘address !XL"), .ADDRESS); 
979 10 INT _BIT_OFFSET(BIT OFFSET); 
980 104 DBGSPRINT” (UPLIT BYTE(ZASCIC °: (global)")); 
981 105 BGSNEWL INE ( 
98 106 DBGSPRINT CONTROL (DBG$K PRISET_LMARGIN, TAB); 
98 10 DSTPTR = [SYMIDCRST$L_DSTPTR): 
84 1 NAME = DBGS$GET_DST NARE -DSTPER): 
985 1 DBGSPRINT (UPLTT BYTE ASCIC "!ac'), NAME); 
1 -BYTE_OFFSET NEQ 
987 1 N 
1 DBGSPRINT_OFFSET(.BYTE_OFFSET); 
989 1 PRINT BIT_OFFSET(BIT_OFFSET); 
; DBGSNEWLIRNE(); 
1 
1 
1 
1 


Oe et et ot ot ot OOO 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


| GC 58 21 20 73 73 65 72 64 66 1 OB 000K PAA: ASCII <It>\address :XL\ , 
C Q1 3 P.AAJ: .ASCII <1>\<\ : 
4C 55° (21 3 0040 P.AAK: .ASCII <3>\!UL\ : 
3E 30 20 2¢ 3 0 C 44 P.AAL: ASCII <7>\ O>\ : 
29 6C 61 62 6F 6C 6 A OA 4c P.AAM: .ASCII <10><: (global)\ : 
43 41 21 03 P.AAN: .ASCII <3>\!AC\ : 
oe 55 31 O88 BAAR, CAREHT cSDN SOLA ‘ 
3E 30 20 2c $6 20 2c ; 0061 P.AAQ: ASCII p; , Or\ : 
.EXTRN DBGSGV_CONTROL 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 SENTRY DBGSSEARCH GLOBAL, Save R2,R3,R4,R5,R6,R7.- ; 0952 
RB,R9,R10,R11 : 
£8 0000v CF 9E 0000 MOVAB GSTADORESS, R11 : 
5a 000000006 99 9E 0000 MOVAB DBGSNEWLINE, R10 ; 
39 000000006 00 9 00006 MOVAB DBGSPRINT, RO : 
58 00000000° EF 3 001 MOVAB PAA ; 
55 08 AC 00 0001C¢ MOVL P_SYMID, RS + 0990 
29 4 aC 00 00020 MOVL ABDR, R : 1003 
5 60 D0 900 4 MOVL (RO), ADDRESS : 
oc BC 04 AO 00 00027 MOVL 4(ROS, aP_BIT_OFFSET + 1004 
54 4 000 C CLRL «= BY TE_OF FSET + 1005 
65 D4 0002E CLRL = (RS) + 1006 
50 000000006 00 00 00030 MOVL RSTSSTART_ADDR, RO : 1007 
52 08 Ag 09 0037 MOVL 8(RO), GSTPTR ; 
43 13 00038 1$: BEQL «6S : 1014 
OD 000000006 00 1 €1 000 p BBC i BBGSGV_CONTROL +1, 2$ ; 
000280E8 8F DD 0004 PUSHL #164 : 
000000006 00 1 FB 0048 CALLS #1, LIBSSIGNAL ; 
52 DD 00052 28: PUSHL  GSfPTR : 1016 
68 1 FB 0054 CALLS #1, GSTADDRESS ; 
Y4 D0 00057 MOVL RO, GST_VALUE : 
56 D1 OO05A CMPL ADDRESS? GST_VALUE : 1022 
Q 18 005 BNEO : | 
65 2 D O05f MOVL GSTPTR, (RS) : 1025 
iC 11 00062 BRB ‘ + 1026 
14 1B 00064 3$: BLEQU 5$ : 10 2 
65 05 000 TSTL = (RSD > 104 
9p 1 BEQL «6s 4$ : 
bd A PUSHL (RS) + 1050 
68 fe. he CALLS #1, GSTADDRESS ; 
3 J D 6F MOVL RO, BEST MATCH VALUE ; 
6 : i CHP §1_MATCH_VALOE, GST_VALUE : 1051 
$3 53 d 77 4$: MOVL STPTR, (RS) : 1053 
2 08 A p 7A 5$: MOVL (GSTPTR), GSTPTR > 1061 
88 7 BRB 4 3; 100: 
g2 88 mee ee i te 
| 5 0D PUSHL (RS) ; 1072 
68 1 FB CALLS #1, GSTADORESS ; 
0 oO 000 MOVL RO, BEST_MATCH_VALUE ; 
| 
| 


—_—————_— 
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54 53 7 ¢3 UBL3 BEST_MATCH_VALUE, ADDRESS, BYTE_OFFSET : 1073 
4 6 MPL YTE-OFFSET, ADDRESS ; 1074 
3 9 BEQL ; 
i p 3 Ist YTE_OFFSET + 1080 
00000000" EF g 4 99 CPL ADDRESS, OWN_MODULE_BEGIN : 1083 
00000000° EF 33 p} Ne cHPL ADDRESS, OWN_MODULE_END : 1084 
00001000 = &F 54 0 OOAB 7$: CMPL BYTE_OFFSET, #4096 + 1087 
07 15 0008 BLEG $ : 
65 D4 0 B4 CLRL (RS) + 1090 
4 ps B6 CLRL =—« BYTE_OFFSET + 1097 
0088 31 O000R8 8$: BRw 14$ : 1092 
7A 10 AC E9 00088 9$: BLBC = PRINT_FLAG, 13$ : 10 
53 DD 000BF PUSHL ADDRESS + 1102 
58 oD 0001 PUSHL RS : 
69 02 FB 000C3 CALLS #2, DBGSPRINT : 
53 0c 8 DO 000C6 MOVL a@P_BIT_OFFSET, R3 + 1103 
D4 OOOCA CLRL Re : 
§ D3 ooc¢ TSTL «=o : 
16 1 ce BECL =: 108 : 
5 6 000 INCL Re ; 
0c AS OOF 90002 PUSHAB  P.AAJ : 
69 04 FB 9000 CALLS #1, DBGSPRINT : 
3 Dd 00008 PUSHL R3 : 
OE AB OF OOODA PUSHAB  P.AAK ; 
69 02 FB O00DD CALLS #2, DBGSPRINT F 
12 AB OF O0E0 PUSHAB P.AAL F 
69 01 FB OOODE CALLS #1, DBGSPRINT : 
1A AB OF OOOES 10$:  PUSHAB P.AAM > 1104 
69 01 FB O00E9 CALLS #1, DBGSPRINT : 
6A 00 FB OOOEC CALLS #0, DBGSNEWLINE + 1105 
4 DD OOOEF PUSHL #4 : 1106 
1 DD OO0F1 PUSHL #1 ; 
000000006 00 é FB OOF 3 CALLS #2, DBGSPRINT_CONTROL F 
50 65 DO OOOFA MOVL : 1107 
50 0c AO 00 000FD VL 12¢R6), DSTPTR : 
50 DD 00101 PUSHL : 1108 
000000006 00 gi FB 4 3 CALLS #1, DBGSGET_DST_NAME : 
D O010A PUSHL NAME > 1109 
25 aS 9F 0010C PUSHAB P.AAN ; 
69 FB OO10F CALLS #2, DBGSPRINT : 
4 : e ist YfE_OFFSET : 1110 
4 od 116 PUSHL BYTE_OFFSET + 1912 
000000006 00 9} FB 11 CALLS #1, BRGSPRINT OFFSET : 
14 3 11F 118: LBC —s«R2. ‘128 : 1913 
29 «AB O9F 001 PUSHAB P.AAO ; 
69 Q FB 001 CALLS #1, DBGSPRINT ; 
D 001 PUSHL R3 ; 
28 AB OF OO12A PUSHAB P,AAP ; 
69 02 FB 001 CALLS #2, DBGSPRINT : 
2 «=6AB OOF (001 PUSHAB F 
69 0 FB 001 CALLS #1, DBGSPRINT ; 
0 FB 001 138: CALLS #0, DBGSNEWLINE 3 11146 
0 0c BC dO 00139 138: aP‘BIT_OFFSET, RO 7 111? 
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 OBGSYMBLZ 16- 300 9 24 AX-11 Bliss-32 v4.0 
V04= 14-Sep 71386 93:4};89 DEBUG. SRC SDBGSYMBL 7.03 31 
oC BC 6064 7E 0013 MOVAG —(RO)CBYTE OFFSET], @P_B1T_OFFSET 
| 01 90 Oo14 MOVL #1, R 
4 0014 RET 
50 BS Mb 148: CLRL RO 

4 0014 RET 


; Routine Size: 329 bytes, Routine Base: DBGSCODE + 0320 
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| 
| 
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roe 


1118 
; 1119 
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DEBUG. YMBLZ.B32;1 


; pad 1} 9 } GLOBAL ROUTINE DBGSDUMP_GLOBAL: NOVALUE = 
; .999 11 ¢ 1 ! FUNCTION 
; 1000 11 7% This routine just counts the number of entries in the GST and 
; 1001 1)e0 © 2 dis lays the information on the terminal. It is called by the 
: 108 ars ae DUMP GST command (which is enabled by SET DEVELOPER 0) and can 
: 100 11 § . 5 be used as an aid in measuring DEBUG performance. 
: 1004 11 1! 
; 1005 1128 1 =! INPUTS 
: 1908 1129 1! none. 
: 100 1150 1! 
3 1008 1131 1°! OUTPUTS : 
3; 1009 11 § 1! Displays size of GST. 
3 1010 11 1! 
3 1011 1134 § BEGIN 
é a 1135 LOCAL 
; 101 1136 COUNT, 
3: 1014 1137 GSTPTR: REF RSTSENTRY; 
; 1015 1138 
; 1oig s1zp Loop through the GST, counting the number of entries. 
; 1018 1141 GSTPTR = .RSTSSTART_ADDRCRSTSL_SYMCHNPTRI; 
3; 1019 1106 COUNT = 0; 
: 1020 114 WHILE .GSTPTR NEQ 0 DO 
3: 1021 1144 BEGIN 
: 4 1145 COUNT = .COUNT ¢ 1; 
: 102 1146 GSTPTR = .GSTPTRCRSTSL_SYMCHNPTRI; 
3; 1024 1147 § END; 
3: 1025 1148 
: 1026 1149 ! Display the information. 
: 1027 1150 ! 
: 1028 1151 DBGSPRINT(UPLIT BYTE (ZASCIC ‘There are !UL entries in the GST"), .COUNT); 
: 1029 1128 2 DBGSNEWLINE(); 
3; 1030 115 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
20 4C 55 ‘i 20 65 72 61 9 65 72 65 $8 54 20 00069 P.AAR: .ASCII \ There are 'UL entries in the GST\ 3 
20 65 68 74 20 6E 69 20 65 69 72 74 $f 65 pore ; 
54 53 47 0008 : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0000 000 ENTRY DBGSDUMP_GLOBAL, Save nothing : 1120 
50 00000000G 00 o? 4 MOVL RSTSSTART_ADDR, RO : 1141 
50 0 AO 0D MOVL 8(RO), GSTPTR g 
2 D4 CLRL COUNT : 1148 
0 fs F 1%: TSTL § TPTR 3 114 
oe 1 1 BEQL ; 
a 1 INCL OUNT : 1165 
50 08 AO ? 1 MOVL (GSTPTR), GSTPTR 5 re 
F4 1 BRB ¢ 3 116 
| 51 DD 00018 2$: PUSHL COUNT 3 1151 
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0 5 
eaSep=19be 83:17:51 — EDeBuG. sacSoBGSYMBL? 089; 1 


1 
1 
O78 PUSHAB P,AAR 
CALLS ae, DBGSPRINT 
OOA CALLS #0, DBGSNEWLINE 
0031 RET 


bese 
SSGHHRE 88 


; Routine Size: 50 bytes, Routine Base: DBGSCODE + 0476 


00000000' i oF 


————_—————__——- 


identifier’. 
P_BIT_OFFSET = The bit offset off of P_SYMID. 
PRINT_FLAG - If false, no output will be done. If true, then all symbols that 


match the virtual address will be output to the terminal. (There 
may be more than one match, such as would occur in FORTRAN common.) 


jajejejaleleojolejololq] 
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5th Parameter - If this routine is called from DBGSPC_TO_SYMID, this 
arameter is set to TRUE. If this is the case, the 
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-v04=000 14-Sep-1984 Ogi abig8 DEBUG. SRC JDBGSYMBLZ.832;1 - 35 
8 ¢ GLOBAL ROUTINE DBGSSEARCH_SAT(ADDR, P_SYMID, P_BIT_OFFSET, PRINT_FLAG) = 
0 FUNCTION 
035 This routine searches both the program level and the module level SAT in an 
0 attempt to symbolize the input address. If the address is found to be 
0 an instruction address, the routine will attempt to symbolize it as a line 
O36 number and byte offset from the start of the Line. 
040 If the address turns out to be a data address, this routine will see if it 
041 corresponds to any static symbol. If so, the symbol most immediately preceding 
ok the address (or an exact match) and a positive offset (or 0) will be returned, 
04 along with the value TRUE. 
044 Symbolization will not be done to array elements or record components; only the 
ok outer level static data item will be returned as the symbol. 
047 If no suitable symbolization can be found, then the routine returns false, and 
er 4 symid is 0. 
0 INPUTS: 
1 ADDR - Address descriptor. 
§ P_SYMID - The address of a longword location to receive the ‘‘symbol 
5 
6 
7 
8 
9 
0 
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eee ine symid will not be created. 

066 OUTPUTS: ; Pe 

067 SYMID - A symbol identifier which uniquely identifies the symbol which best 
pos symbolizes the input address. 

070 If the PRINT_FLAG has a value of TRUE, then output of all matched symbols 
071 to the terminal will occur. 

Ore 

07 

074 BEGIN 

075 

076 MAP 

ha ADDR: REF DBGSADDRESS_DESC; ! Pointer to Address Desc. 

079 BUILTIN 

080 ACTUALCOUNT; 

081 

oes BIND : : 

08 SYMID = .P_SYMID: REF RSTSENTRY, ! Best gyabet identifier. 
bee BIT_OFFSET = .P_BIT_OFFSET; ! Bit offset. 

i: aca 

08 ADDRESS ' Byte address from Addr. Desc. 
088 BYTE_OFFSET, i Byte offset from RSTPTR 
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v04-000 1e-Sep- 38 Og eabige DEBUG. SRC IDBGSYMBLZ.83 31 ° «135 vO 
1089 MODRSTPTR: REF RSTSENTRY, ! The module RST ptr. 
1090 MODULE FOUND, ' Module found/not found flag. 
1091 PROG. SATPTR: REF SATSENTRY, ' Program leyel SAT ptr. 
109 STPTR: REF RSTSENTRY, ! The symbol’s RST ptr. 
109 SYMBOL_NAME: REF BLOCKC, BYTE], ' Ptr to counted string. 
1094 TMP_BYTE_OFFSET; ! Tmp offset for calc closest 
095 ! symbol. 
43 
0 ' Initialize. 
0 L 


ADDRESS = .ADDRCDBGSL_ADDRESS_B 
BIT OFFSET = .ADDRCDBGSL_ADDRES 


TE a 
BYTE OFFSET = =1; 


SBT 


R . 
PP éerd: 


' Search through the program level static address table, looking 
for a module that covers the address. 


PROG_SATPTR = .SATSSTART_ADDR; 
WILE 2 CROe BATE IR NEQ 0°00 


! If current SAT entry is pest the address we are looking for, 
' then exitloop. Can do this because SAT is sorted on start 
address. 
if -PROG_SATPTRCSATSL_START] GTRA .ADDRESS 

EXITLOOP; 
! If the given address is in the correct range, then go ahead 
and search the module-level SAT. 


iF (.PROG_SATPTRUSATSL_START] LEQA .ADDRESS) AND 
({PROG-SATPTRESATSL_END] | GEQA . ADDRESS) 


BEGIN 
: Search the module level SAT. 


SEARCH_MODULE_SAT (.PROG_SATPTR, . ADDRESS, 
TMP_BYTE_OFFSET, .PRINT 


w WAAL AIR PIPPIN) 2 2 2? BOO OODOCOOCOOOOOVNODO 
Be eS SESEARNVSSSUSRRON MS Sano wnrunvmoSe ue nro oho 


MODRSTPTR, RSTPTR, 
FLAG) 
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{fF (PRINT FLAG) AND (NOT .MODULE_FOUND) 
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If this is the first module found, then print the address. : 
ed bs 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘address 'XL°), . ADDRESS); 
| 
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aaa 1 Og Fhe DEBUG. SRC 1DBGSYMBLZ.B3 31 . (138 
: 6 PRINT BIT_OFFSET(BIT_ OFFSET); | 
§ DBGSPRINT-(UPLIT BYTE (ZASCIE *: ')); 
DBGSNEWLINE(); 
f DBGSPRINT CONTROL (DBGSK_PRTSET_LMARGIN, TAB); 
, MODULE_FOUND = TRUE; 
75 
f Calculate offset; determine what to print. 


SELECTONE TRUE OF 
SET 


! If the module is not set, then print a message to that 
effect 


C.MODRSTPTRERSTSV_MODSET! EQL 0): 
IF .PRINT_FLAG 
THEN 


PAEAEAPEAPAEMAMAMAMMNMSNI SN & & 


BEGIN 
DBGSSTA_SYMNAME (.MODRSTPTR, SYMBOL _NAME) ; 
DBGSPRIAT (UPLIT BYTE (ZASCIC ‘in module ‘AC, module not set’), « SYMBOL _NAME ) ; 
 Pipeeamablie 
END; : 

! If the module is set, but the RST pointer is 0, then the 

' address was found in the module, but could not be symbolized. 

Print a message to this effect. 

C.RSTPTR EOL 0): 


IF .PRINT_FLAG 
THEN 


SN NNN NNO OO 


SSSLFSRAS LS SEVRALAV AS SSVSARANISSSIFALERIS SSIS RFUNLS SHAS 


BEGIN 

DBGSSTA SYMNAME (.MODRSTPTR, SYMBOL _NAME) ; eae 

DBGSPRIAT (UPLIT BYTE (ZASCIC ‘in module ‘AC, no symbolization'), .SYMBOL_NAME); 
DBGSNEUL I EQ; 
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There is a symbolization. 
COTHERWISE): 

BEGIN 
' If there is currently no symbolization for the address, then 
' assume this one to be the b 


est. 
' If there is a or lor syavet zation, see if this one is better. 
' If the offset is 0, there can be no better match. 


' 
' 
' 
' 
' 
IF (.MODRSTPTRCRSTSV_MODSET]) AND (.BYTE_OFFSET NEQ 0) 
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vOLe 1 =3007 138 95: Fbi8 DEBUG. gRCTOBGS YMBL? «839; 1 . (13 
; 1260 1 § ! If the address is a code address, then print the symbol 
: 1261 1 ! name and corresponding Line number. If there is no Line 
13 ! ? : ¢ } number, then just print the routine name and offset. 
: 1264 1 $ IF (.SYMIDCRSTSB_KIND] EQL RSTSK_ROUTINE) OR 
: 1265 1 (.SYMIDLRSTSB_KIND] EQL RSTSK_BLOCK) OR 
: 126 1388 (.SYMIDLRSTSB_KIND] EQL RSTSK_LABEL) 0 
: 126 1389 (.SYMIDCRSTSB_KIND] EQL RSTSK_ENTRY) 
3: 1268 1390 EN 
3; 1269 1391 BEGIN 
: 1270 1 3 LOCAL 
; 1271 139 LINE_NO, ! Line no. corresponding to code address. 
s 1 i 1394 STMT_NO ' statement no. 
: 127 1395 START PC, i Beginning pc address for Line. 
3: 1274 1396 END_PC, ! Dummy. 
3: 1275 1397 MOD_SYMID : REF RSTSENTRY, ! Dummy. 
3: 1276 1398 TMP_OFFSET, ! Temporay offset 
: \g?t 1399 TMP_SYMID : REF RSTSENTRY; ! Temporay symid for line 
3; 1278 1400 
3; 1279 1401 
; 1280 1406 ! Lookup the Line number; if found, then print the symbol name 
: 138) 140 ' and Line number. 
3 1 HG 1404 : 
3: 128 1405 MOD_SYMID = .MODRSTPTR; 
3: 1284 1406 4 IF TOBGSPC_TO_LINE_LOOKUP (.ADDRESS, LINE_NO, STMT_NO, 
3; 1285 1407 4 START PC, END PC, MOD_SYMID)) 
3; 1286 1408 4 AND ((.LINE_NO NEQ 0) OR (.STMT_RO NEQ OF) 
3: 1287 1409 3 THEN 
3; 1288 1410 4 BEGIN 
3: 1289 1411 § IF (.BYTE_OFFSET NEQ 0) OR (.SYMIDCRST$B_KIND] EQL RST$K_BLOCK) 
3; 1290 et 4 THEN 
; 1291 1413 5 BEGIN 
; 1698 1414 5 SYMID = DBGSSTA_LINE_NUM_RST(.SYMID, .LINE_NO, .STMT_NO, 
3 129 1415 5 ~START_PC, .END_PC); 
3: 1294 1416 5 BYTE_OFFSET = .ADDRESS = .START_PC; 
3; 1295 1417 5 
3 F943 1418 5 
3; 1297 1419 5§ ! Set the following for printing purpose. 
3: 1298 1420 5 : 
3 if 4.4 1s) 5 TMP_SYMID = .SYMID; 
3; 1300 14 3 5 TMP_OFFSET = .BYTE_OFFSET; 
3 1301 14 5 END 
: 1 4 1424 5 
3 1 1425 4 ELSE 
3 1304 1426 5 BEGIN 
: 1305 1427 5 IF .PRINT_FLAG 
3 1 1428 5 THEN 
3; 1307 1429 6 BEGIN 
; 1308 1430 6 TMP_SYMID = DBGSSTA_LINE_NUM_RST(.SYMID, .LINE_NO, 
3; 1 1431 6 -STMT_NO, .START_PC,”.END PC); 
3: 1310 1636 6 TMP_OFFSET = .ADDRESS = .START_PC; 
3 1311 14 g TMP_SYMIDCRSTSL_UPSCOPEPTR) = .SYMIDCRSTSL_UPSCOPEPTRI; 
3 13g 1434 END; 
3 131 1435 4 END; 
ae 1H 
3; 1316 1438 4 IF .PRINT_FLAG 
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DBGSYMBLZ 
y02=000 
: 1317 1439 4 THEN 
; 1318 1440 
3; 1319 144) 
; 1320 ek 
s 1521 144 
s 1 § 1444 
3 1 1445 
3 1326 1o%8 
3 1325 144 
: 1326 1448 
3; 1327 1449 
; 1328 1450 2 
: 1329 1451 
3; 1330 1626 4 
3: 1331 14 END; 
. 7 ; 1454 END; 
3 1 1455 
3 1 1628 
3; 1335 145 ! End of rou 
3; 1336 1458 ' MODULE _FOU 
3 1337 1459 ' Set offset 
3 1338 1460 ! 
3; 1339 1461 BIT OFFSET = 
3: 1340 1408 RETORN .MODU 
3 1341 146 
3 1342 1464 1 END; 
4C 58 21 20 73 73 65 
3E 30 20 
2C 43 41 21 20 65 6C 75 646 6F 
74 65 73 20 764 6F 6€E $e 65 6C 
2c 43 41 $1 20 65 6C 64 6F 
69 74 61 7A 69 6C 6F 62 6D 79 
3€ 30 20 
3€ 30 20 
5 
5 
5 


5 
1a-se 1984 02:41:4 AX-11 Bliss-32 v4.0-74 Page 39 
12-8 08- 1 3be 95:43:96 DEBUG. SRCIOBGSYMBL 04551 . a3 
pegin 
DBGSPRINT_SYMBOL_PATHNAME (.TMP_SYMID); 
! If the start pc is less than the code address, then 
} print the Line offset. 
if .TMP_OFFSET GTR 0 
THEN 
DBGSPRINT_OFFSET (.TMP_OFFSET); 
PRINT BIT _OFFSET(BIT_OFFSET); 
DBGSNEWLINE(); 
END; 
tine. If the symbol was located in some module, then 
ND is true; otherwise the routine returns false. 
to original address if no symbolization. 
.BYTE OFFSET * 8 + .BIT_OFFSET; 
LE_FOUND; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0O 
72 64 64 61 OB OOOBA P.AAS: .ASCII <11>\address 'XL\ 3 
3c «(01 B08 P.AAT: .ASCII <1>\<\ : 
4¢ 55 21 83 0098 P.AAU: .ASCII Shiu \ j 
es * EGE Basa ath ae 
$0 20 GE 69 1p 9047 P.AAX: ASCII Nee module !AC, module not set\ 
$9 $8 6— 69 IF joes P.AAY: .ASCII <31>\in module !AC, no symbolization\ : 
3 6F of 20 Baee : 
C 01 Does P.AAZ: .ASCII <1>\<\ : 
4c 55 21 ; OOE7 P.AB ASCII = <3>\!ULN 3 
2c 30 20 2 BE P.ABB: .ASCII <7>\, 0, O>\ : 
Cc Q1 F3 P.ABC: .ASCII <1>\<\ 3 
4c 55 21 ; OFS P. ASCII cp \tu \ 3 
-PSECT DBGSCODE.NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DAGSSEARCH_SAT. Save R2,R3,R4,R5,R6,R7,R8,- : 1154 
B 00000000° ef e 2033 HOvA P Aas, (R11 
5 08 AC D 000¢ MOVL P_SYMID, R8 : 1205 


sapere 
voe=000" 


4 of AC D 

! 4 af D 

60 0 

vee § 
a 
A be 
444 4B . r 
53 000000006 12 

011D 3 

57 04 8 ot 
F A 

57 08 a D1 
03 iI€ 

0108 31 
59 10 AC 00 
59 DD 

04 AE OF 

OC AE OF 

14 AE OF 
0088 8F BB 
0000v CF 06 4) 

4E 59 «CE 
4B 5A £8 
57 OD 
5B 0D 
000000006 00 02 FB 
64 05 
20 13 

OC AB OF 
000000006 00 01 FB 
64 DD 

OF AB OF 
000000006 00 02 FB 
12 AB OOF 
000000006 00 01 FB 
1A AB OOF 
000000006 00 01 FB 
000000006 00 0 FB 
4 0D 
1 OD 
000000006 00 02 FB 
Boo ES 

S oO BE 
86 5 44 

oc A F 
52 0D 
000000006 00 02 FB 
OC AE pp 

1D AB OF 

18 11 

56 06 AE OD 

if 1 

74 5 3 

OC AE OF 


oOo 


onuewn 


oooogInoaon 


DBOOrvoeeo rum 


or 


wn 
PRAM 


ume 
PM 


o 
bad 


§ AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGSYMBLZ.B832;1 


OFFSET, R4 


>a 
Coo 
= 
cP] 
~m 
wn 
nw 


ore. 
OWN MOBULE B 
arss TSSTART E ADDR. "PROG. SATPTR 


YTE_OFFSET 
LE 


1 
4(PROG_SATPTR), 
sPROS_ SATO TR? 


ADDRESS 
ADDRESS 


15$ 

PRINT_FLAG, R9 
TMP_BYTE_OFFSET 
RSTPTR 

MODRSTPTR 

#°M<R3,R7> 

#6, SEARCH_MODULE_SAT 


RI, 
MODULE FOUND, 7$ 
ADDRESS 


#2, DBGSPRINT 
(Rd) 
6$ 
BAA 
(rd) 
P. AAU 
#2, DBGSPRINT 
wi, DBGSPRINT 


wi, DAGSPRINT 
#0, DBGSNEWL INE 


T 
DBGSPRINT 


2, DBGSPRINT_CONTROL 

a MODULE FO ND 
basTPTR R 

40(R2), 8$ 

SYMBOL NAME 

#2, DBGSSTA_SYMNAME 

SYMBOL _NAME 


9 
RSTPTR, R6 


R9, 158 
SYMBOL _NAME 
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(12) 


1828 


1269 


1270 
1271 


1385 
1390 
1291 


1301 
1303 
1306 


4 


<9 
om 
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5 -32 V4.0-74 Page 41 ve 
=-$ep-1984 02:41: AX-11 Bliss (12) V 
4 fit a 1$-se0 1 98e } T7389 DEBUG. SRC IDBGSYMBLZ .839; 1 
aus gn a ee pear ch 
000000006 00 oc 6 0 Push Sthe Ta ; : 
B AB 9F OOOEA U eh , : : 
CALLS” #2, DBGSPRIN : 1308 
| 000000006 00 Og TP BooED 9S Bre; otra), 128 1326 
1 28 Ag £9 000F6 108: BLaC anit coFraet ; 
| ; 13 Orc BEL 28 i 1326 
a5 1 10 Cape TMP_BYTE_OFFSET, BYTE_OFFSET : 132 
: i " ROL ROS (RB) : 1330 
$8 , 0108 | «= ROVE. «= TMB_GYTE_OFFSET, BYTE_OFFSET slag ; 
23 55 E9 00108 128: BLBC R9,~15$ ~ + 18e6 7 
{Pe bolt CALLS #1, DEGSPRINT_SYMBOL_PATHNAME Benes 
000000006 00 o1 08 BY TSTL. © TMP_BYTE_OFFSET 
ar As Baile Push TAP BYTE_OFFSET ; 1347 
of PB O10 CALLS #1,” DBGSPRINT_OFFSET  i3a8 
000000006 00 ? 08 1z6 138: TSI (Ra) a 
20 13 001 : 
se AB 9F 00198 CALLS. #1, DBGSPRINT é . 
01 FB 001 CALLS i 
000000006 00 oF te SS BUSHEL (RA) ; - 
5D AB 9F 00134 PUSHAB PABA int 
02 FB 00137 CALLS #2, D é 
ems 61 OF Pe oolal CALLS ai, DaGsPRINT tees 
000000006 00 01 FB 0014 A sOcern int : 1349 
ws 68 00 OOtet 183 nOvL {PROG SATPTR) «PROG SATPTR 118s 
56 ee D0 0185 168: MOVL (RB), R : qi 
ey a0158 CURL ape 1366 
oe ra ae an 
6 BEQL ‘ : 1386 
14 oA O166 MOVZBL 29(R6), R3 ; 
83 83 91 Ool6s CHB RS, #2 
F 13 o108 BEQ. 8 19 8 ; 1387 
03 85 oi 160 CHPE RS, 
A 1 1 BEQL 1 : 1388 a 
BFF Bors CHG RS, . 
: a oa oe fies |f 
vay 12 Oolf a : 1405 
EO 12 OOI7A BNE nenes : 
VL MODRSTPTR, MOD_ tebe 
10 AE 08 AE 06 Ae 198: OWL eat : 
18 AE 9F 001 PUSHAB ENDO PC 
AE 9F 00187 PUSHAB START d ‘ 
SR RRR | tied fae 3 : 
A | 
| SPER BPR oc to.. ine .oon : 
000000006 09 § £8 001 BLBC RO; 178 | 


a 


a 5 
| DBGSYMBLZ 16-Sep-1984 02:41:4 AX-11 Bliss-32 V4.0-74 Page 42 
v04=000 at 1 Og 4h 86 DEBUG. SRC IDBGSYMBLZ.83 31 9 12) 
20 AE 05 0019¢ TSTL NE_NO : 1408 
Of 1 19F BNEG at : 
a | ; 1A1 TSTL STMT _NO : 
: 1A4 BEQL 7$ : 
¢ 14g 208: TSTL BYTE OFFSET + 1411 
1A8 BNEQ 1$ : 
03 91 OO1AA CMPB RS rh} : 
| 12 OO1AD BNEQ 22% ; 
146 AE DD OOIAF 21$:  PUSHL END PC + 1615 
1¢ =AE ODD O18 PUSHL START PC : 
$e AE DD 0018 PUSHL STMT_RO 3 1414 
C AE DD O18 PUSHL LINE-NO : 
DD 00188 PUSHL Re : 
000000006 0 FB 001B8D CALLS #5, OBGSSTA_LINE_NUM_RST ; 
$ 0 »D bite MOVL. RO. (RB) : 
55 18 AE C3 001C7 SUBL3 START_PC, ADDRESS, BYTE_OFFSET + 1416 
30 dO 001CC MOVL (RB), TMP_S : 1421 
5 DO OOICF MOVL BYTE OFFSET, TMP_OFFSET + 1422 
11 00102 BRB 3$ : 1411 
64 10 AC €9 001D4 22$:  BLBC  PRINT_FLAG, 268 : 1487 
14 AE DD 00108 PUSHL END_P + 1431 
1¢ AE DD 00108 PUSHL START_PC 3 
$e AE 0D O001DE FUSHL STMT_RO : 
C AE DD OO1E1 PUSHL LINE-NO : 1430 
56 OD OO1E4 PUSHL R : 
000000006 00 05 Fe O1E6 CALLS #5, DBGSSTA_LINE_NUM_RST ; 
3 57 18 AE C3 OO1ED SUBL3 START_PC, ADDRESS, TAP_OFFSET : 14632 
10 Ao 10 a6 dO Ole MOVL 16(R63, 16(TMP_SYMID) : 143 
41 10 AC €9 OO1F? 23$:  BLBC PRINT FLAG, 268 + 1438 
50 0D 001FB PUSHL  TMP_SYMID + 1441 
000000006 00 g1 FB OOTFD CALLS #1, DBGSPRINT_SYMBOL_PATHNAME : 
3 D5 00204 TSTL = TMP_OFFSET > 1447 
09 15 00 06 BLEG 24$ : 
Dd 00 0 PUSHL TMP_OFFSET + 1449 
000000006 00 01 FB O020A CALLS #1, DBGSPRINT_OFFSET : 
64 D5 00211 248: TSTL (Rd) : 1450 
20 13 0021 BEQL 258 ; 
69 AB OF 0 1 PUSHAB P.ABC ; 
000000006 00 01 FB 0021 CALLS #1, DBGSPRINT ; 
64 BD 6 1F PUSHL  (R4) ; 
68 Ag F 1 PUSHAB P.ABD ; 
000000006 00 02 FB 4 CALLS #2, DBGSPRINT : 
00000006 oF OF Pe 0055e Cre, #1. DBGSPRINT : 
addins 09 60 re 5 25s: CALLS 0; DBGSNEM IW 1451 
4 944 43 C 268: MOVAQ a(R4)+C(BYTE OFFSET], -(R4) : 1461 
50 SA 0 re MOVL MODULE _FOUNB, RO : 1462 
4 0024 RET : 1464 


3; Routine Size: 580 bytes, Routine Base: DBGSCODE + 04A8 


N 5 
essing IESESHOE AHSE | WMGLL SANGRE. 


(13) 


; ! ‘ 1465 GLOBAL ROUTINE DBGSDUMP_SAT: NOVALUE = 

> § 12e9 1 | FUNCTION 

3 1 1oo8 . This routine Gisploys information about the Static Address Table. 
3 1 . Me 1! It is called from the DUMP SAT command, which is enabled via 

3 134 1470 1! SET DEVELOPER 0. The information can be used as an aid to 

: : 29 1oe) : } studying the performance of the debugger. 

: 1 28 1298 1 ' INPUTS 

et ee Bnd beeen 

:1 25 1476 1 ' ouTPuTS 

3 : 28 Veen : The Length of each modules SAT chain is displayed at the terminal. 
: 1358 1479 2° BEGIN 

: 1359 1480 LOCAL 

t iit 1283 MODNAE 

+ 4 6¢ 1288 MODRSTPTR: REF RSTSENTRY, 

31 1484 PROGSAT_COUNT 

: 1364 1485 PROG SATPTR: REF SATSENTRY, 

; 1309 1086 SATPTR: REF SATSENTRY; 

: it 5 Pt + Loop through the program-level SAT. 

3 1369 1490 PROG SATPTR = .SATSSTART_ADDR; 

3: 1370 1491 PROGSAT_COUNT = 0; 

: 1371 1498 WHILE  -PROG_SATPTR NEQ 0 DO 

; 1398 149% PROGSAT_COUNT = .PROGSAT_COUNT ¢ 1; 

: 137% 1495 MODRSTPTR = .PROG_SATPTRESATSL_RSTPTRI; 

; 1376 1497 : Loop through each module-level SAT, keeping a count of entries. 
: 1378 1499 SATPTR = .MODRSTPTRIRSTSL_SAT_PTRI; 

; = 0; 

: 1380 1301 ; WHILE estore NEQ 0 DO 

: 1382 1808 4 COUNT = .COUNT + 1; 

: 138 1504 4 SATPTR = .SATPTRCSATSL_FLINK); 

; 138 1305 END; 

: 1358 1307 ; Display the information for this module SAT. 

: 1388 1808 DBGSSTA_SYMNAME (.MODRSTPTR, MODNAME); 

> 1389 1510 DBGSPRIRT(UPLIT BYTE(ZASCIC ‘module ‘AC: 'UL'), .MODNAME, .COUNT); 
; ! 90 ai) DBGSNEWLINE(); 

it 9 1318 pROG_SATPTR = ,PROG_SATPTRCSATSL_FLINK); 

: 1396 1515 DBGSPRINT(UPLIT BYTE (ZASCIC ‘Length of program SAT: :UL"), .PROGSAT_ COUNT); 
: 1395 1516 DBGSNEWL INE (); 

: 1896 151 END; 


-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 


| 
6 
WBesb0e WB-Seo-19R6 O2:u1:46 YARN BL igs 32 W4.O-742 | Page 44 


55 21 20 3A 43 41 21 20 65 6C 75 64 6F 6D OF uy P.ABF: ASCII <15>\module !AC: !UL\ : 
(67 6F 72 70 4 0 68 74 67 65 6C 1A 111 P.ABG: .ASCII <26>\Length of program SAT: !UL\ : 
| go $6 Sh gk SB TF 8h 8h SB SS 38 BBthe : state : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
O1FC 00000 .ENTRY DBGSDUMP_SAT, age’ R2,R3,R4,R5,R6,R7_RB : 1465 
58 900000006 0 3 008 MOVAB DBGSNEWL TNE : 
6 MOV DBGSPRINT NE aOR : 
° 4 C3 019 SUBL2 #4 : 
000000006 Q DO 0001 MOVL  SATSSTART_ADDR, PROG_SATPTR + 1490 
D4 OOOIA CLRL _ PROGSAT_COUNT + 1491 
35 rt} peat 1$ pit PROG. SATETR. : 1492 
5 dé 000 5 INCL PROGSAT_COUNT + 149% 
53 0c Ag dO ih 2 MOVL 12(PROG SATPTR), MODRSTPTR ; 1495 
54 18 AS DO 00026 MOVL 24(MODRSTPTR), SATPTR : 1499 
56 D4 OOD2A CLRL COUNT : 1500 
a an ee oes 
56 06 000 5 INCL COUNT + 1503 
54 64 00 pose MOVL (SATPTR), SATPTR : 1504 
FS 11 000 BRB > 1501 
4008 8F BB 00037 3$ PUSHR #*M<R3,SP> : 1509 
000000006 00 02 FB 00085 CALLS #2, DBGSSTA_SYMNAME ; 
06 AE. bb 00066 PUSHE RCDNAR a 
00000000" EF 9F 00047 PUSHAB : 
67 03 FB 20047 CALLS i DBGSPRINT F 
68 00 FB 90050 CALLS #0, DBGSNEWLINE > 1511 
52 62 0 0033 MOVE (PROG_ SATPTR) « PROG_SATPTR ; 1513 
00000000° 2? P 00058 = PUSHAB eo cee ; 1515 
? 03 FB 29060 CALLS a, DBGSPRINT : 
ae 0 FB 00065 CALLS #0. DBGSNEWL INE 1516 


; Routine Size: 103 bytes, Routine Base: DBGSCODE + 06EC 


f 


the RST pointer (unique symbol identifier) of the symbol that matched. ; 
The location defined by P_BIT_OFFSET contains the bit offset. The routine 
returns true. lL of this occurs even if only a partial symbolization 
is possible (eg. just routine name). 

If the address is not found in the stack frame, then P_SYMID is 0, and 
P_BIT_OFFSET is .ADDR's bit offset field. The routine returns false. 


yinens 
| 6 
| DBGSYMBL7Z 1has0 -1984 41:4 AX-11 Bliss-32 V4.0-74 Page 45 
/ ¥04-000 12-8 08-1 obe Ogi hige {oeBUG. SRC DBGSYMBLZ.832;1 . (14) 
: 1398 : GLOBAL ROUTINE DBGSSEARCH_VAX_CALL_STACK(ADDR, P_SYMID, P_BIT_OFFSET, PRINT_FLAG) = 
400 i FUNCTION 
401 ‘ This routine searches the VAX call stack in an attempt to symbolize the 
re 4 address. 
40 : 
404 ' INPUTS 
rt 5 } ADDR = Address Descriptor. 
407 3 P_SYMID - The address of a sengyers location to receive the 
ree 5 unique symbol identifier. 
410 2 P_BIT_OFFSET = The bit offset off of P_SYMID. 
i ae 
218 5 PRINT_FLAG - If false, no output will be done. If true, then 
414 5 : the symbolization of the virtual address will be 
415 5 : output to the terminal. 
416 23 : 
417 5 ' OUTPUTS 
418 53 : If successful, the routine prints the symbolization of the address 
£38 ¥ (if the print flag was set). The location defined by P_SYMID contains 
421 54 i 
$$8 54 ‘ 
42 54 
§ 
2 i 
: 


BEGIN 


WN —OO0ONOuse 


WWIWIWonor 


MAP 
ADDR: REF DBGSADDRESS_DESC; 


WIN $9 ODN MEW (9 ODN MEW $0 OD NOU EWN $C OONOU EW —O0OO 


POA AAMMMNMNMNNNNN BS BRR RR 


Be Be Be Se Oe Oe Oe Oe Be Oe Be Oe Oe Be Oe Be Oe Oe Ge SH Se Ge Be HS Ss Oe oe Oe OH Os Oe Os Oe Bs Oe OH Oe Oe Oe Oe HOS Oe OH Ss os OH Os Se es Sees Be Sease 
ee ee a le ee el el el el el el el el el cl el el el el el el cl eel cel cl cl el eel cel el el ll 


a a a ec ee a ed ae ad ed ed dd ad ed 


ay 

w 

PRIM IRF IPPIF FPP IPI|JIJIJIJPNIJIJIIM NINN IAI st od 
‘ . . . 


4 5 

4 5 

4 5 

4 5 

4 5 

4 5 

4 5 

4 5 

4 5 

4 5 

434 5 > . . 
435 5 SYMID = .P_SYMID: REF RSTSENTRY, ! Unique syabol identifier. 
436 2 BIT_OFFSET = .P"BIT_OFFSET; | Offset off of FP. 

438 5 LITERAL 

439 5 FP = 13, 

440 5 SP = 14, 

441 H LONGWORD = 4; 

as 

44 5 LOCAL 

444 5 ADDRESS ' Byte address 

445 ¢ BYTE OFFSET, i Byte offset 

“ 5 : Invocation count — 

44 5 ENDADOR i End address of routine 

448 5 FRAME FOUND_FLAG, i 

449 5 FRAMEPTR : REF BLOCKE BYTE), ! Ptr to current VAX call frame. 
450 5 FRAMEPTR2 : REF BLOCKL, BYTE), ' Ptr to current VAX call frame. 
451 H PCVAL ' Current PC. 

$36 PCVAL ' Current PC. 

45 5 TMP BYTE_OFFSET, : Tmp offset for calc closest symbol. 
454 5 VALSPEC : REF DSTSVAL_SPEC, ! Ptr to DST value spec. 


Assume symbolization not possible. 


SYMID = 0; 

BYTE OFFSET = -1; 

ADDRESS = .ADDRCDBGSL_ADDRESS_BYTE_ADDR); 
BIT_OFFSET = .ADDRCDBGSL_ADDRESS_BIT_OFFSET); 


dD 6 
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v04-006 ae Ogi ahig DEBUG. SRC JDBGSYMBLZ.832;1 ° (14) vO 
45 75 P_SYMID : REF RSTSENTRY, ' Temp ptr to symbol RST entry. 
45 ug MODRSTPTR : REF RSTSENTRY, ' Module RST pointer 
te 7 TPT : REF RSTSENTRY, ' Routine RST ptr. 
4 78 RSTPTR2 : REF RSTSENTRY, ' Routine RST ptr. 
45 79 ATPTR : REF SATSENTRY, ’ 
46 80 STARTADDR, ' Start address of routine 
46 1 SYMBOL _NAM : REF BLOCKC, BYTE) , 
46 ; SPVAL : REF VECTORC, LONG), | Current call frame SP value. 
46 ; REGMASK BITVECTORC16); i Reg save mask from the call frame. 
46 85 
46 6 ! Initialize the SP, PC and frame pointer to their current (top of stack) 
cf ‘ : values. 
6 89 PCVAL = .DBGSRUNFRAME paGel user Pci: 
7 90 SPVAL = .DBGSRUNFRAMELDBGSL_USER SP); 
, 31 FRAMEPTR = .DBGSRUNFRAMELDBGSL_USER FP): 
38 
94 
95 
96 
97 
98 
99 


, el kk ee et et el al 


OOOO NNNANN 


Loop through the stack. 
WHILE TRUE DO 
BEGIN 


WN $C OONAVES WN S$ OODNOU EWN "ODONOu 


If we are at the bottom of the stack, then exit the loop. 


if (.PCVAL EQL 0) OR 
(.FRAMEPTRESFSA_HANDLER) EQL DBG$FINAL_HANDL) 


EXITLOOP; 


SSSBIEARE 


ooo 
wn 


See if there is local data on top of the stack. 


if .FRAMEPTR GTRA .SPVAL 
THEN 


VESa wd nde OSe eRe 


bb > A ee or a a Ea a nh to 
LS SeLESE 


oo 


oR 


There is, so see if address is within the data area. 
IF (, ADDRESS GEQA .SPVAL) AND 
(. ADDRESS LSSA .FRAMEPTR) 
THEN 
BEGIN 
RSTPTR = FIND nput ine (.PCVAL, .PRINT_FLAG); 
If eRSTPTR EOL 


BEGIN 


ee ee ee ed ee ee el el el el el cel el el el cl el cel el el ll elt el lt cll elt cl cl lt alt cls cl elt ly elt el ls cls cls cls alls lls ells alls ails cally 
ee et ee ee el ee el et el el el el eel el el el eel eel cl el el cl ell cel cell cl cells cl els lt ld cect cecal cls cecal cll lls calls cls cll calls 
PPP AA AA AEA AAAAAAAAAAA AAA AAAAA A HAMANN Aenean 


IPPOPENOPEPofofy 
DEBE BBE AA MNAN MAAN WWII IAI IP PIP POPOPOPONUPOPONONONONoNonoNnonnonofnononofnononofnonony 


Be Se Oe Oe Oe Be Os Oe Ge Fe Ge Gs Ge Se Ge Ge Se Ge Ge Ge Se SH Ge SESH Se Se SH Ge OH SH Ge Be OH Ss OSs OSH Ss Os Oe OHO OHS Oe Se Oe Oe Oe Oe Se Se ees 
OOOO VEN (OOOO U EW “OOONOUE Wh 


=SSSLESE 


i Ptr to counted ASCII string. 


—> 4 


BEE EEE PWN 


DUP DPVIPVLIVIV LIV IVIV IV IVI IVI IVS SSIS 
VI EWN OOO NOA NEW (OOD NOUN EW SO ODN EWiT 


WA.WAIAIAAI I 
MEUM —O OCONOUE WN SOOODNOUF wr 


SS SSS SSS SSS SSS SS SSS SFC CCS S. 
APAEMAMNMAN MAUI 


o 
SESSS 
BEEBE EEE EE EE EP LNMNAAAAAAA AAA AAA AA MANNII BB PE SNUIAAAOOOOOCOUM 


oS. 


PAMADMMAMMNMNN E BEBE EEE EP 


i ahah 4h 4h Ab db Ab Ah Ah th Ab ah Ab dh dh th bh dh th bb th 4h 4h 4h bh Ab Ah ah A) 
PAAOAOPAAAAAAS 
SSN NNO 
WN 0 CONOUS WO O@a~n 


ta 3 
cD 
w 


is S53 


—» —o 6 —s 8 8 8 4 0 2s — 0 0 8 = on = 8 — — 4 a — 4 — 2 — 4 2 4 2 — 4 —» 2 4 2 ns 2s —) =) — 2 2b bd — 4 2 2b —) bs a in is 2s 2 ss as 4 2 
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ee ee ed ed od od ed dd 
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6 
iegeor}age 03:47 :4 DEBUG. SRC SDBGSYMBL? 039; 1 rove 


EGIN 
See RINT (UPLIT BYTE (ZASCIC ‘address !XL'), .ADDRESS); 
INT_BIT_OFFSET(BIT OFFSET); 
DBGSPRINT-(UPLIT BYTE (ZASCIC ': ")); 
DBGSNEWL INE (); 
GSPRINT_CONTROL (DBGS$K_PRTSET_LMARGIN, TAB); 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘data item on stack in unknown module')); 
+ Patemnepe 


RETURN TRUE; 
END; . 


Fg STARS TER ADB EQL RSTSK_MODULE 

BEGIN 
We have located the PC in a module, but since the module 
is not set, can't get any more information other than 
module name. Print that. 


' 
i 
iF 
TH 


-PRINT_FLAG 
_ 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘address !XL'), .ADDRESS); 
PRINT BIT_OFFSET(BIT OFFSET); 
DBGSPRINT-(UPLIT BYTE (ZASCIC *: *)); 
DBGSNEWL INE (); 
DBGSPRINT CONTROL (DBGSK_PRTSET_LMARGIN, TAB); 
DBGSSTA_SYMNAME (.RSTPTR, SYMBOC_NAME); 
DBGSPRIAT (UPLIT BYTE (ZASCIC ‘data item on stack in module !AC'), .SYMBOL_NAME); 
IF RSTPTRERSTSV_MODSET 
‘ DBGSPRINT( UPLIT BYTE (ZASCIC ', module set')) 


DBGSPRINT( UPLIT BYTE (ZASCIC *, module not set')); 
DEGSNEUL INE (); 
RETURN TRUE; 
END; 


! We have found the routine containing the PC. Try for further 
symboLlization. 


MODRSTPTR = .RSTPTR 
WHILE .MODRSTPTRCRST$B_KIND) NEQ RSTSK_MODULE DO 
MODRSTPTR = .MODRSTPTRIRSTSL_UPSCOPEPTR); 

TMP_SYMID = .MODRSTPTRCRSTSL_SYMCHNPTR); 


! Search through the routine to find the symbol most immediately 
! preceding the given address. 


<o 
w 
a 
wm 
3 
m 
~ 
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aR ae 9g 43 268 DEBUG. cRCSDBGSYMBLY.03951 ° (14) 
! 
WHILE .TMP_SYMID NEQ 0 DO 
BEGIN 
LOCAL 
TMPPTR; 
! Get the DST value spec for the symbol. If the symbol 
is not bound to FP (or SP), then the valspec will be 0. 
VALSPEC = 1S _SYMBOL_BOUND_TO_REG (.TMP_SYMID, FP); 
FRAMEPTR; 


TMPPTR = , 5 
IF .VALSPEC EQL 0 
THEN 


BEGIN 
VALSPEC = IS_SYMBOL_BOUND_TO_REG (.TMP_SYMID, SP); 


COODOOO NNN NAAN NSS 


In here we need to do a special check for JSB routine 
local variables. (usually it is defined as SP - offset 
in T). The address of those variables are usually 
relative to SP pointer at the execution time. We do 
not have the correct information for SP. So we do 
our best guess at this case. Ignore it if we think 
we have found this case. 


VALSPEC NEQ 0 


Se Le 


F . 
HEN 


on 


BEGIN 
IF .VALSPECCOSTSL_VS_VALUE] LSS 0 
VALSPEC = 0 
TMPPTR = .SPVAL; 
END; 
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IF .VALSPEC NEQ 0 
THE 


kk an a a aaa a a at a et a a i a ss = = as 1 9 — 2 4 4 4 gS 
Ot a oe ee te et a a 8 2 “9 8 a a — > 9 2» 4» 9 9 9 
NNN NNN NNN NN NNN NN NNN NNN ISIS SSSI SNS NNO AOA AAA AAAAO 
CODD IPD P PP AAP DE DDD DDD. ISIS SIN NPA PA AAA AAA AA APA A MAMI & 


609 N 

610 BEGIN 

611 

ole 

61 ' See if the symbol is a disptacement off of the FP, 
gis or SP, 

616 IF NOT .VALSPECCDOST$V_VS poimects AND 

61 - VALSPECCOST$V_vS_BISP 

618 N 

619 BEGIN 

620 & IF .TMP_SYMIDCRSTSL_UPSCOPEPTR) EQL .RSTPTR 
621 & THEN 

6 § 4 BEGIN 

6 4 

624 4 ; 

625 4 ' If this is the first match, or a better 
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10238071 38e ? 217:5 DEBUG. SRC ]DBGSYMBLZ.B3 31 


1 match, set symid and offset. 


TMP_BYIE_OFFSET = .ADDRESS 
T.TMPPTR + VA 

IF ((.TMP_BYTE_OFFSE 
(; THP“BYTE-OF F SE 

OR (.BYTELOFFSET LSS 


ouv'u 


o 
" 

e. 

~ 
=z 
wv 
n“” 
< 
=z 
_ 
oo 


I 
E_OFFSET = .TMP_BYTE_OFFSET; 


If the offset is 0, have found a perfect match. 
if .BYTE_OFFSET EQL 0 
EXITLOOP; 


Loop for next symbol. 
Tp _SYAID = .TMP_SYMIDCRSTSL_SYMCHNPTR); 


Before returning, we want to take care of the case 
where the found SYMID was declared in a routine 
with several invocations on the stack. We walk down — 
the stack again, count *ne the times we pass the routine. 
sete eneptes us to attach an invocation number to 

6 . 


T = 0; 
-SYMID NEQ 0 
EN 


BEGIN 
STARTADDR = .RSTPTRE 
ENDADDR = .RSTPTR ssp ERDADDR) 
. AME CBBGS PC); 


TR 
CR 
SRUNFR L Uséh 
RAMEPTR2 = . BGSRUNF RARE DBGSL_USER_FP); 
WHILE .FRAMEPTR2 LSS .FRAMEPTR DO 


N 
aan GEQU .STARTADDR) AND (.PCVAL2 LEQU .ENDADDR) 
BEGIN 


RSTSL_STARTADDR); 


! The PC from this CALL frame is in the address range of the routine 
! we are hook ing for, However, to make sure the PC is not really in 
' a nested routine within the desired routine, we search the Module 
' SAT gtartic at the desired routine's SAT entry looking for nested 
! routines which cover the CALL frame's PC value. If we find such a 
' routine, the CALL frame is not for the desired routine. 
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Mb 000 1a-Sep-19 4 Og 3h :88 PrauG. che spBGSYMOL ¢.03951 . (14) 
pet FRAME FOUND_FLAG = TRUE 
U L = H 
e8s SATPTR = -RSTPTRERSTSL_RTNSATPTRI; 
ges ! WARNING == We can get into trouble here. Previously, we have 
688 ' assumed that the SAT is always around. This may not be the 
689 ' case if this module has been canceled. There are times when 
690 ' the module could be canceled and then set ogese to make us 
691 ' believe the the SAT is valid for this RST, But it is not! To 
69 ' correct the creeien. when a module is canceled the field 
69 ! RSTSL_RTNSATPTR is set to ZERO for each routine. 
694 ' So if the module for this RST has been cenceced. SATPTR will 
695 ' be zero from the above statement. The problem is that this 
O38 ' assumes there are no nested routines that truly require the 
69 ' correct context information. s is, of course, WRONG. 
698 ! way of saving and getting to the SAT information must be 
+44 found in the future. 8.A. Becker MAY-1984 
70 IF .SATPTR NEQ 0 
70 THEN 
70 SATPTR = .SATPTRCSATSL_FLINKI; 


WHILE TRUE DO 
BEGIN 
LOCAL 

NEW_RSTPTR: REF RSTSENTRY; 


If there are no more SAT entries in the chain or if they no 
' Longer cover the PCVAL address, exit the SAT Loop. 


] 

i 

if .SATPTR EQL 0 THEN EXITLOOP; 

IF .SATPTRCSATSL_START) GTRU .PCVAL2 THEN EXITLOOP; 


If this SAT entry is for a routine which covers the PCVAL 
address, we clear FRAME_FOUND_FLAG because the PC is in this 
nested routine instead of the routine we are looking for. 


' 

i 

' 

NEW_RSTPTR = .SATPTRISATSL_RSTPTRI; 

IF T.PCVAL2 GEQU .SATPTRESATSL_STARTJ) AND 
-PCVAL2 LEQU .SATPTRCSATSL-ENDJ) AND 
~NEW _RSTPTRCRSTSB_KIND) EQC RSTSK_ROUTINE) 


BEGIN 
FRAME _FOUND_FLAG = FALSE; 
EXITLOOP; 


Link on to the next SAT entry. 
SATPTR = ,SATPTRCSATSL_FLINK); 
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' If the CALL frame we found really is for the desired routine, 
then increment the invocation count. 
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GSYMBLZ 1h-5o-1986 02:41 
yb :000 12-808- 1382 98:4} 
IF. FRAME_FOUND_FLAG 

COUNT = .COUNT + 1; 
ND: 


Keep looping through the stack. 


PCVAL2 = .FRAMEPTR2CSFSL_SAVE_PC); 
ERAMEPTR2 = .FRAMEPTROCSFSL_SAVE_FPI; 


END; 
Now build a new SYMID which includes the invocation number. 
if ;,count GTR O 

SYMID = DBGSBUILD_INVOC_RST(.SYMID, .COUNT); 
' If a symbol was not found, then just print the routine name. 
' Otherwise, print the symbol pathname (and offset, i 
' applicable). 


' 

' 

' 

i 

if .PRINT_FLAG 
THEN 
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AFARLS 


BEGIN 
DBGSPRIN 


’ C ‘address !XL°), .ADDRESS); 
DBGSPRINT 
LI 
T 
D 


€': ab BF 
OL (DBGSK_PRTSET_LMARGIN, TAB); 


GIN 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘data item on stack in routine °)); 
Seer eee SL, PATE 5 meee Tm) 


ELSE 


DOO OOOO OO OW WWW 090000 0909 SIN NN NIN NSN NIA AAA AA AAAO 
OONAVNE WIN $$ O ODNA VE WN 9 OONA MEAN SO OONO UNE WO 


SSeS p kus 
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BEGIN 

DBGSPRINT_ SYMBOL PATHNAME(.SYMID); 
IF .BYTE_OFFSET REQ O 
THEN , 


EQ 
FSET 
(BIT 
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DBGSPRINT_O ( BYTE _OFFSET); 
PRINT_BIT_OFFSET(BIT_OFFSET); 


END; 
POSENEMA INE C35 
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! It was mot a local data item, so see if it is a call frame address. 
i Determine what the value of SP will be when this call frame is torn 
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1800 1920 
130) 1921 
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1804 1924 
130? 13 5 
180? 1997 
1808 1928 
1809 1929 
1810 1930 
1811 1931 
18i8 19 ¢ 
181 19 

1814 13%e 
1815 1935 
1816 1936 
1817 1937 
1818 1938 
1819 1939 
13st 1940 
1821 1941 
18s¢ Mb ak 
182 194 

1824 1944 
1825 1945 
1826 1946 
1827 1947 
1828 1948 
\8¢) 1949 
1830 1950 
1831 1951 
1336 1336 
183 195 

1834 1954 
1835 1955 
1836 1336 
1837 195 

1838 1958 
1839 1959 
1840 1960 
1841 1961 
H ak 1366 
184 196 

1844 1964 
1845 1965 
1266 1966 
184 1967 
ieee 1968 
1849 Hb 3 
1850 1970 
132) 1971 
1 2g 1374 
185 197 
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! down by the RET instruction. The new SP value will be the bottom 
} boundary of this call frame. 


REGMASK = .FRAMEPTRISFSW_SAVE_MASK); 
SPVAL = FRAMEPTRESFSL_SAVE_REGS); 
INCR I FROM 0 TO 1 
IF .REGMASKC.1) THEN SPVAL = .SPVAL + LONGWORD; 
SPVAL = ,SPVAL + ,FRAMEPTRESFSV_STACKOFFS); 
IF sf RAMEPTRESFSV_CALLS) 


SPVAL = .SPVAL + 4*(.SPVAL[O] + 1); 


! See if the address falls into the current call frame (which is bounded 
by the current frameptr and the sp value just calculated). 


if (.ADDRESS GEQA .FRAMEPTR) AND 
Tes ADORESS LSSA .SPVAL) 


N 

BEGIN 

Find the routine that contains the PC. 
RSTPTR = FIND ROUTINE (.PCVAL, .PRINT_FLAG); 
a hte €Qc 0 


BEGIN 
IF_.PRINT_FLAG 
THEN 


GIN 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘address !XL"), .ADDRESS); 
RINT_BIT_OFFSET(BIT OFFSET): 
DBGSPRINT™(UPLIT BYTE (ZASCIC ': °)); 
DBGSNEWL INE (); 
DBGSPRINT_CONTROL (DBGSK_PRTSET_LMARGIN, TAB); 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘Stack frame address in unknown module')); 


RETURN TRUE; 
END; 


fe zrstPracas ree Kime? EQL RSTSK_MODULE 
BEGIN 
! We have located the PC in a module, but since the module 
' is not set, can't get any more information other than 
module name. Print that. 
if _.PRINT_FLAG 
THEN 1" 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘address !XL°), .ADDRESS); 
NT_BIT_OFFSET(BIT_OFFSET); 
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16-Sep-1984 02:41:4 AX-11 Bliss-32 V4.0-74 
12-80 8=1 3c 9g: Fbi8 DEBUG. SRESDBGSYMBL 2.039; 1 
DBGSPRINT (UPLIT BYTE (ZASCIC ': ')); 
DBGSNEWLINE();: 
DBGSPRINT CONTROL (DBGSK_PRTSET LMARGIN, TAB); 
DBGSSTA_SYMNAME (.RSTPTR, SYMBOC_NAME); 
DBGSPRIAT (UPLIT BYTE (ZASCIC 
"stack frame eddrens in module !AC*), .SYMBOL_NAME); 
IF gRSTPTRERSTSV_MODSET 
DBGSPRINT( UPLIT BYTE (ZASCIC *, module set')) 


ELS 
DBGSPRINT( UPLIT BYTE (ZASCIC ', module not set')); 


DBGSNEWLINE(); 
END; 


RETURN TRUE; 
END 


Module is set. Print the routine name. 


GIN 
-PRINT_FLAG 
EN 
BEGIN 
DBGSPRINT ( UPLIT BYTE (ZASCIC ‘address !XL'), .ADDRESS); 
PRINT BIT_OFFSET(BIT OFFSET); 
DBG$PRINT~( UPLIT BYTE (ZASCIC ': *)); 
DBGSNEWL INE () ; 
DBGSPRINT_CONTROL (DBGSK_PRTSET_LMARGIN, TAB); 
GSPRINT”( UPLIT BYTE (ZASCIC ‘stack call frame’), 0); 
TMP_BYTE_OFFSET = .ADDRESS - . ; 
IF [TMP_BYTE_OFFSET NEQ 0 
DBGSPRINT_OFFSET(.TMP_BYTE_OFFSET); 
PRINT BIT_OFFSET(BIT OFFSET): 
DBGSPRINT-(UPLIT BYTE (ZASCIC * for routine ')); 
DBGSPRINT_SYMBOL_PATHNAME( .RSTPTR); 


RETURN TRUE; 
END; 


: Not found yet. Get information for next stack frame. 


PCVAL = .FRAMEPTRISFSL_SAVE_PC); 
FRAMEPTR = .FRAMEPTRISFSL_SAVE_FP); 
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ype 000 1o- 00-1382 Og 4h ie8 DEBUG. ERCIOBGSYMOL? .03951 | ° (14) 
: 13h} o 1 : Address was not found in a call frame. 
: 1318 ; RETURN FALSE; 
3: 1914 034 
3; 1915 035 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4C 58 21 20 73 73 65 72 64 64 ! ° 4 Se rt oASCht <]}e\address 'XL\ 3 

4C 55 21 O3 OO13A P.ABJ: ASCII <3>\!UL\ : 

Zw HM HM S 8 C O07 OO13E P.ABK: .ASCII <7>\, 0, O>\ : 

0 3A 02 3148 P.ABL: .ASCII <2>\: \ : 

73 34 6— 6F 20 6D 65 74 69 20 61 74 61 64 24 00149 P.ABM: .ASCII \Sdata item on stack in unknown module\ : 

[oe eee Sf Bis : 

4C 58 21 20 73 73 65 72 64 64 61 OB O16¢ P.ABN: .ASCII <11>\address !XL\ : 

¢ 1 O17A P.ABO: .ASCII] <1>\<\ : 

4 55 1 B3 Bet as P.ABP: .ASCII <3>\!UL\ é 

3€ 30 20 2C 3 $8 -_— 0180 P.ABQ: .ASCII <7>\, 0, O>\ : 

0 SA 3 0188 P.ABR: .ASCII <2>\: \ $ 

73 20 6€ 6F 20 6D 65 74 69 20 61 74 61 64 018B P.ABS: .ASCII \ data item on stack in module !AC\ : 

20 65 6C 75 64 6F 6D 20 6€ 69 20 68 $3 e! ; Bot Ke 3 

74 65 73 20 65 6C 75 64 6F 6D $ C 6; QOI1AC P.ABT: .ASCII <12>\, module set\ 3 

73 20 74 6F 6E€ 20 65 6C 75 64 6F 6D 20 i 19 dh 24 P.ABU: .ASCII <16>\, module not set\ 3 

4C 58 21 20 73 73 65 72 64 64 1 OB BOTcA P.ABV: .ASCII] <11>\address 'XL\ 3 

C 01 93 106 P.ABW: .ASCII <1>\<\ : 

6c SS 21 83 BR18 P.ABX: .ASCII <3>\!UL\ 3 

3 30 20 2¢ 30 $9 ¢ QO O1DC P.ABY: .ASCII <7>\, 0, O>\ : 

0 3A O02 OO1E4 P.ABZ: .ASCII a, \ : 3 

73 20 6€ 6F 20 6D 65 74 69 20 61 61 66 1E€ OO1E7 P.ACA: .ASCII <30>\data item on stack in routine \ : 

65 6€ 69 74 75 6F 72 20 6E 69 20 6B 63 61 ° pore : 

C if 8 88 P.ACB: .ASCII <1>\<\ 3 

4c 55 21 ; P.ACC: .ASCII ys A : 

Hi 0 20 6 2 ae O20C P.ACD: .ASCII <7>\, 0, O>\ 3 

4C 58 21 20 73 6 2 64 64 : ° | 14 Savi E atta} <} 'e\ederess ‘MLN 3 

4C 55 1 ; 0 2 P.ACG: .ASCII rb ; 

3 30 20 2C 30 20 2 P.ACH: .ASCII <7>\, 0, O>\ : 

0 SA g E P.ACI: .ASCII <2>\: \ 3 

61 20 65 6D 61 72 66 20 68 $3 1 1 P.ACJ: .ASCII \stack frame address in unknown module\ 3 

77 +6F 6E 6B 6E 75 2 of 69 6 ? a? ¢° , oe ° re : 

4C 58 21 20 $3 as 65 72 64 64 ; : 2 Sorte arth} <}}e\eddress ‘MLN : 

& 5 1 ; p 3 P.ACM: .ASCII <35>\!UL\ ; 

36 30 20 2¢ 3 C § P.ACN: .ASCII <?7>\, 0, O>\ 7 

A ¢ 1 P.ACO: .ASCII <2>\: \ 3 

61 $9 65 6D 61 72 66 2 68 $3 $1 4 74 P.ACP: ASCII \'stack frame address in module !AC\ 5 

65 6C 75 64 6F 6D 20 6E 6 q $5 7 : $3 : 

| 74 65 73 20 65 6C 75 64 6F 6D 20 gf € 00296 P.ACQ: .ASCII <12>\, module set\ ; 
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DBGSCODE,NOWRT, SHR, PIC,0 


Dd SSSEARCH VAX_CALL_STACK, Save R2,R3,R4,- 


6,R7,RB,RIZR10,R11 


ie 
peolnvofrsels 6. 
saree ee 6. PRANEPTR 


40(SP) 
Hl vt OFFSET 
(RO) ADDRESS 

(ROS, (RO) 

PCVAL 

2s 

DBGSF INAL_HANDL, RO 
(ERAMEPTRY, RO 

9$ 

ERAMEPTR, SPVAL 


8$ 

ADDRESS, SPVAL 
ADDRESS, FRAMEPTR 
PRINT FLAG 


#2, FIND ROUTINE 
8 . RSTPTR 


PRINT FLAG, 8$ 
ADDRESS 


P. ABH 
#2, DBGSPRINT 
(R9) 

6$ 


P.ABI 
#i, DBGSPRINT 
(R$) 
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DBGSYMBLZ 16-Sep-1984 02:41: AX=11 Bliss-32 v4.0-7%6 Page 56 
pbes aR aets 1 95:43:46 DEBUG. SRCIOBGSYMBL S .039s1 9 1a) 
00000000 EF 9F PUSHAB P,ABJ : 
000000006 2 FB 8 CALLS #2, DBGSPRINT : 
00000000" EF 9F OO09A PUSHAB P.ABK : 
000000006 1 FB OOOA CALLS #1, DBGSPRINT : 
00000000" EF 9F QOOA7 6S: PUSHAB L + 1637 
900000 06 1 FB OOOAD CALLS #1, DBGSPRINT : 
00000006 0 FB 000B4 CALLS #0, DBGSNEWLINE + 1638 
4 DD 00088 PUSHL 4&6 t 1639 
1 OD O0BD PUSHL #1 : 
000000006 00 2 FB O000BF CALLS #2, DBGSPRINT_CONTROL F 
00000000' ff F 000C6 PUSHAB P.ABM + 1640 
0099 31 ce BRW gs : 
01 14 Ag 1 CF 7$: CMPB $ (RSTPTR), #1 3 1647 
9 13 et BEQL : 
009A 31 0000 BRwW 13$ : 
03 10 aC &8 0008 8$: BLBS § PRINT_FLAG, 9$ > 1656 
048 1 0000C BRW 57$ : 
B DD OOODF 98: PUSHL ADDRESS : 1659 
00000000° FF 9F OO0E1 PUSHAB P.ABN : 
000000006 00 3 FB OOOE7 CALLS #2, DBGSPRINT : 
69 D OEE TSTL (R9) ’ + 1660 
29 1 000F BEQL 10$ : 
00000000' Ff 9F OOF PUSHAB P.ABO : 
000000006 00 1 FB OOOF CALLS #1, DBGSPRINT : 
69 OD OOOFF PUSHL (R9) : 
00000000" EF 9F 00101 PUSHAB P.ABP : 
000000006 02 FB 00107 CALLS #2, DBGSPRINT : 
00000000" EF 9F 0010E PUSHAB  P. : 
000000006 00 01 FB 00114 CALLS #1, DBGSPRINT : 
00000000" EF 9F 00118 10$:  PUSHAB P. > 1661 
000000006 00 1 FB 00121 CALLS #1, DBGSPRINT : 
000000006 00 0 FB 00128 CALLS #0, DBGSNEWLINE : 166 
4 DD O012F PUSHL 4&4 : 166 
1 DD 00131 PUSHL #1 : 
000000006 00 2 FB 00133 CALLS #2, DBGSPRINT_CONTROL ; 
2c «AE OOF O013A PUSHAB SYMBOL_NAME > 1664 
52 DD 00130 PUSHL RST : 
000000006 00 02 FB 0013F CALLS #2, DBGSSTA_SYMNAME : 
3¢ AE BD 0146 PUSHL  SYMBOL_NAME 3 1665 
00000000' FF F 00149 PUSHAB P.ABS : 
000000006 00 é FB O14F CALLS a DBGSPRINT ; 
08 28 A é 0196 LBC «=—«-_-« @OCRSTPTR), 118 > 1666 
00000000' F of 4) A PUSHAB P ABT > 1668 
00000000' EF 9F 182 11$ PUSHAB P.ABU : 1670 
000000006 00 1 Fe 168 12% CALLS #1, DBGSPRINT ; 
0419 3 16 BRW 5 : 1672 
55 52 00 172 138:  MOVL  RSTPTR, MODRSTPTR > 1681 
| 01 14 A ; 7 14$: CAPS (MODRSTPTR), #1 : 1682 
55 10 A 06 178 MOVL §§16(MODRSTPTR), MODRSTPTR > 1683 
| Fe 11 OO17F BRB 14$ ; 
56 08 AS 06 181 15$: MOVL (MODRSTPTR), TMP_SYMID > 1684 
F 1 5 16$: BEQL ¢ : 1690 
D Dd 001 PUSHL @ > 1699 
6 DD 00189 PUSHL TMP_SYMID : 
| 0000v CF FB 001 CALLS #2,71S_SYMBOL _BOUND_TO_REG : 


8 7 
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yb 000 ae eet Ogi thiee DEBUG. SRCTOBGSYMBLs.645;1 9 1a) 
57 0». 190 MOVL RO, VALSPEC : 
B 4 00 0019 MOVL  FRAMEPTR, TMPPTR : 1700 
7 D 19 TSTL VAL SPEC + 1701 
| iB 1 1 BNEO =s:s«W*8 ; 
E DD O019A PUSHL #14 + 1706 
DD 0019¢ PUSHL TMP_SYMID : 
0000v cf F 196 CALLS #2, 1S_SYMBOL_BOUND_TO_REG : 
7 D 1A MOVL RO, VACSPEC : 
0D 1 1A BEQL -‘18$ : 1715 
01 a? D5 OO1A TSTL 1¢VALSPEC) + 1718 
4 18 OO1AB BGEQ ~=s:«d17$ : 
7 D4 O1AD CLAL VAL SPEC : 1720 
4 11 OO1AF BRB 18 : 
58 20 AE D0 00181 17% MOVL § SPVAL, TMPPTR : 172 
3 D 0183 18$ TSTL - VALSPE : 172 
13 0018 BEQL = 21 : 
2€ 67 02 €0 00189 BBS #2, (VALSPEC), 318 + 1736 
2A 67 03 €1 9018p BBC #3, (VALSPEC), 21$ : 1737. 
52 10 Ae 01 001C1 CMPL § 16(TMP_SYMID), RSTPTR : 1740 
24 12 001C5S BNEQ 21$ : 
50 5B 01 A? C1 Ooic7 ADDL3 1(VALSPEC), TMPPTR, RO : 1749 
18 AE 58 50 C3 O01CC SUBL3 RO, ADDRESS, TMP_BYTE_OFFSET : 
1c AE 18 AE D1 00101 CMPL § TMP_BYTE_OFFSET, BYTE OFFSET > 1750 
0S 18 00106 BGEQ 198 : | 
18 AE DS 001D TSTL | TMP_BYTE_OFFSET + 1751 
05 18 00108 BGEG 0$ : 
1c AE b3 001DD 19S: TSTL BYTE_OFFSET : 1752 
09 18 OO1E0 BGEG 1$ : 
28 «OBE 56 DO OO1E2 208:  MOVL = TMP_SYMID, a40(SP) : 1755 
1C AE 18 AE DO O16 MOVL § TMP"BYTE OFFSET, BYTE_OFFSET > 1756 
1c AE D3 O1EB 218: TSTL BYTE_OFFSET : 1765. 
06 1 QOiEE BEQL F 
56 08 a6 DO 001FO MOVL (TMP_SYMID), TMP_SYMID : 1772 
BF 11 O01F4 BRB 16$ : 1690 
10 AE D4 001F6 228: = CLAL COUNT : 1780 
28 BE 05 001F9 TSTL  a40(SP) : 178 
6D 13 OO1FC BEQL a ; | 
04 AE 18 A2 D Ore MOVL 4(RSTPTR), STARTADDR + 1786 
6E 1¢ A2 00 0020 MOVL 8(RSTPTR). ENDADDR : 1787 
14 AE 000000006 00 D0 00207 MOVL DBGSRUNE RARE +64, PCVAL2 : 1788 
5A 000000006 00 00 0020F MOVL § DBGSRUNFRAME+56. FRAMEPTR2 : 1789, 
54 5A D1 00216 238: CMPL  FRAMEPTR2, FRAMEPTR : 1790 
50 18 00219 BGEO 7$ ; 
04 AE 16 AE D1 0 18 CMPL  PCVAL2, STARTADDR : 1792 
3e Ff BLSSU 26 : 
6E 14 Ar pt 2 CMPL = PCVAL2, ENDADDR ; 
; A 6 BGTRU 26$ ; 
oC A 1 D MOVL #1, FRAME_FOUND FLAG > 1804 
5 20 Ae p MOVL 3g{RSTPIRY, SATPTR : 1805 
2 BEQL $ ; 18 1 
53 $ D 248:  MOVL (SATPTR), SATPTR > 1823 
1 BEQL 258 : 1834 
14 AE 06 =A CMPL SESATPTRD, PCVAL2 ; 1835 
i 4 C BGTRU #3 ; 
5 oC A D0 MOVL (SATPTR), NEW_RSTPTR : 1843 
06 A 14 af D 4 CMPL PCVAL2, 4(SATPTR) > 184 
E9 1F 00204 BLSSU 248 ; 
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§ Yeu Bliss-32 V4.0-74 
DEBUG. SRC JDBGSYMBLZ.B32;1 


AL2, 8(SATPTR) 
NEW_RSTPTR), #2 


E_FOUND_FLAG 
E“FOUND-FLAG, 26$ 


RAMEPTR2), PCVAL2 
RAMEPTR2), FRAMEPTR2 


44 (SP) 

+o DBGSBUILD_INVOC_RST 
RO, a40(SP) 

PRINT_FLAG, 29$ 
ADDRESS 

#2, DBGSPRINT 

R1 


wi 


(R9 
P. ABX 
#2, DBGSPRINT 


#1, DBGSPRINT 
P.ABZ 


#i, DBGSPRINT 
#0, DBGSNEWL INE 


we 
h cerntnuens: 


F 
#2, DBGSPRINT_CONTROL 

a46(SP) 

31$ 

PLACA 

#1, DBGSPRINT 

RSTPTR 

a, DBGSPRINT_SYMBOL_PATHNAME 
a40(SP) 

#1, DBGSPRINT_SYMBOL _PATHNAME 
BYfe OFFSET 

BYTE_OFFSET 
#1 ORGSPRINT OFFSET 
rif, 33$ 

P.ACB 

#i, DBGSPRINT 

(R$) 


P.ACC 
#2, DBGSPRINT 
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, ¥04=000 Hae teae ts 1 Og r4) 66 ates. cncsoBeeyMeLs 833; 1 9 4a) 
00000000" EF 9F 0033 PUSHAB P.ACD : 
00000006 5 PB 45 CALLS #1, DBGSPRINT : 
| itdaitdt 88 OF 4 338 CALLS #0, DBGSNEWLINE + 1905 
10 AE OD 4$ TSTL gyfe.orFstr : 1908 
05 1 BGEQ 5 ; 
38 BE D4 CLRL  a40(SP) : 
Bt 3 35$: TSTL % (SP) 3; 1909 
1 58 BNEQ 6$ : 
1¢ «AE «D4 00350 CLRL  BYTE_OFFSET : 
50 10 oA b0 60 36$: MOVL BYTE OFFSET, RO + 1910 
79 994 F 64 MOVAQ a (ROT+CROJ, =(R9) : 
0227 3 68 378: BRW 57$ + 1911 
08 A€ 06 Ad 80 8$:  MOVW GCFRAMEPTR) REGMASK + 1920 
20 AE 16 AG 9 MOVAB 20(R4), SPVAL + 1921 
50 04 0037 CLRL : 19 é 
04 08 AE 50 €1 00377 39$: BBC I, REGMASK, 40$ : 19 
20 OA 04 C9 0 7¢ ADDL2 #4, SPVA : 
F3 5 08 F 80 40$:  AOBLEQ aif, J. 9$ : 
50 07 AG 02 3 EF 00384 ExTZV #6, &2, 7(FRAMEPTR), RO 3; 1924 
20 AE 50 CO 0038A ADDL2 RO. SPVAL ; 
OE 07 AG 05 €1 0038 BBC #5. 7(FRAMEPTR), 41$ + 1925 
50 20 BE 060 0039 OVL. aSPVAL, RO : 1927 
51 20 «AE 04 C1 0039 ADDL3 #4 SPVAL, R1 : 
20. AE 6140 DE 0039C MOVAL (RI)CROJ, SPVAL ; 
eo a. 58 D1 OOSA1 41$: = CPL ADDRESS, FRAMEPTR + 1933 
03 1€ OO3A4 BGEQU 43$ ; 
O1gD 31 003A 42s: BRW 58$ ; 
20 AE 8 D1 OO3A9 43$:  CMPL ADDRESS, SPVAL : 1934 
F? 1€ OO3AD BGEQU 4 ; 
10 AC DD OO3AF PUSHL PRINT_FLAG + 1941 
28 AE DD 0038 PUSHL PC : 
0000v CF 02 FB 0038 CALLS #2, FIND_ROUTINE : 
52 50 DO 003BA MOVL RO, RSTPTR : 
68 1 00 BD BNEQ 45 ; 1942 
AS 10 ac €9 003BF BLBC = PRINT_FLAG, 37$ > 194 
58 DD 00 C3 PUSHL ADDRESS > 1948 
00000000° FF 9F 003C PUSHAB P.ACE ; 
000000006 00 3 FB 00 CB CALLS #2, DBGSPRINT ; 
D5 0030 TSTL (R9) : 1949 
9 13 00304 BEQL 44$ ; 
00000000" EF 9F 00306 PUSHAB P.ACF ; 
000000006 00 1 FB 0030 CALLS #1, DBGSPRINT : 
69 bb O3E PUSHL  (R9) : 
00000000° Fe F 0 E PUSHAB P.ACG F 
000000006 2 FB OO3E CALLS #2, DBGSPRINT ; 
00000000" EF 9F O03F PUSHAB P.ACH ; 
000000006 1 FB 003F CALLS #1, DBGSPRINT ; 
00000000" EF 9F OOSFF 44%:  PUSHAB P. : 1950 
000000006 00 1 FB 00405 CALLS #1, DBGSPRINT : 
000000006 00 0 FB 49 CALLS #0, DBGSNEWLINE > 1951 
4 DD 004 PUSHL #4 > 1952 
1 DD 0041 PUSHL #1 ; 
000000006 00 2 FB 0041 CALLS #2, DBGSPRINT_CONTROL 3 
00000000" EF 9F 1€ PUSHAB P.ACJ > 1953 
FD41 31 00424 BRW es : 
01 14 Ag 1 745%:  CMPB 20(RSTPTR), #1 : 1960 
03 13 00428 BEQL 468 ; 


<2 | 


c---- - 7 — — —— — 


7 

DBGSYMBLZ ies Sep + | 74 AX-11 et Liss-32 V4.0-74 Page 60 
04-000 14=Sep 71882 98:4} :1 $9 DEBUG. SRC )DBGSYMBLZ .B3 31 9 1a) 

0093 31 004 p BRWw 51$ ; 
03 10 AC t. 430 46$:  BLBS PRINT_FLAG, 47$ + 1969 

0136 1 00434 BRW : 
4 po 437 47$: | PUSHL ADDRESS + 1972 

00000000' ai F 00439 PUSHAB P.ACK : 

000000006 00 é FB 0043F CALLS We, DBGSPRINT : 
69 D Aig TSTL —(R9) + 1973 

29 18 0044 BEQL : 

00000000' Ff 9F O044A PUSHAB : 

000000006 00 1 FB 430 CALLS ain DBGSPRINT : 

69 pp 4 PUSHL (R9) : 

00000000° Fe F 0499 PUSHAB P.ACM : 

000000006 0 2 FB 0045F CALLS #2, DBGSPRINT : 

00000000° cf 9F 00466 PUSHAB P.ACN : 

000000006 1 FB O4ge CALLS #1, DBGSPRINT : 
00000000" EF 9F 004 48$ PUSHAB P.ACO : 197% 

000000006 00 01 FB 00479 CALLS #1, DBGSPRIN ; 
000000006 00 00 FB 00480 CALLS #0, SO CSNEUL INE : 1975 
04 DD 20487 PUSHL : 1976 

01 DD On489 PUSHL an : 

000000006 00 02 FB 004 CALLS We. DBGSPRINT_CONTROL ; 
2c «AE OOF 0049 PUSHAB SYMBOL L NAME : 1977 

52 DD 0049 PUSHL RSTPTR : 

000000006 00 02 FB 00497 CALLS ae, DBGSSTA_SYMNAME : 
2¢ AE «DD 0049E PUSHL SYMBOL_NAME~ > 1979 
000000006" cr OF 004A PUSHAB P.AC : 1978 

000000006 00 : FB O04A7 CALLS e, ecsen ; 
08 $3 A 34 004A BLBC tnsiPiR Nios ; 1980 
00000000° ef F 0048 PUSHAB P.ACQ : 1982 

6 11 0048 BRB 50 : 
00000000" EF 9F OO4BA 49$:  PUSHAB P.ACR > 1984 

FCAS 31 004C0 50$: BRW : 
03 10 AC és O04¢5 51$:  BLBS  PRINT_FLAG, 52$ : 1998 

00cs8 31 b04¢ BRW 57$ : 
58 DD O04CA 52$:  PUSHL ADDRESS > 2001 

00000000" EF 9F 004CC PUSHAB P. F 

000000006 00 2 FB 004D2 CALLS #2, DBGSPRINT ; 
B D4 00409 CLRL a4 : 2002 

69 D3 00408 TSTL (ROD : 

eB 13 00400 BEQL ©53$ : 

B p6 004DF INCL R11 : 

00000000" EF 9F O04E1 PUSHAB P.ACT : 

000000006 00 1 FB 004E7 CALLS #1, DBGSPRINT ; 

69 pd Quee PUSHL (RY) : 

00000000° FF F O04F PUSHAB P.A : 

000000006 2 FB 004F6 CALLS i DBGSPRINT : 

00000000" EF 9F O4FD PUSHAB P.ACV : 

000000006 00 1 FB 005 CALLS #1, DBGSPRINT : 
0000006 99 20000000" Fi Ph BORON Se: PSNR NCP csPRiNT Soe 
atdaitddts 0 0 FB i CALLS #0, DBGSNEWL INE : 2004 
4 bd 0051 PUSHL > 2005 

1 OO PUSHL g 
000000006 00 : FB CALLS Het DBGSPRINT_CONTROL pe 

00000000° ai oF 8 PUSHAB : 

000000006 00 2 FB 00531 CALLS ie DBGSPRINT ; 
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| v04=000 eae 1 95:45:98 DEBUG. SRC JDBGSYMBL2.B32;1 9 4a) 
18 AE 58 4 & 8 SUBL3 FRAMEPTR, ADDRESS, TMP_BYTE_OFFSET ; 2007 
A 1 D BEQL 54$ : 200 
iT} AF DD f PUSHL InP BYTE OFFSET + 201 
000000006 9 FB 4g CALLS #1 086 PRINT_OFFSET : 
B ; 49 548: BLec Rif, 55$ + 2011 
00000000' EF SF 0054 PUSHAB P.ACY : 
000000006 00 1 FB CALLS #1, DBGSPRINT : 
69 pd PUSHL (9) : 
00000000' Ff F B PUSHAB P.ACZ : 
000000006 2 FB 00561 CALLS #2, DBGSPRINT : 
00000000' FF 9F 00568 PUSHAB P.ADA : 
000000006 00 1 FB 266 CALLS #1, DBGSPRINT : 
00000000" EF 9F 55$ PUSHAB  P, + 2012 
000000006 00 1 FB 0057 CALLS #1, DBGSPRINT : 
2 od 005 PUSHL RSfPTR : 2013 
000000006 00 01 FB 00584 CALLS #1, DBGSPRINT_SYMBOL_PATHNAKE : 
000000006 98 30 FB 0588 56$: CALLS #0, DBGSNEWLINE : 3016 
0 1 D0 00592 57$: mov. #1. RO : 2017 
04 0059 RET : 1997 
24 «AE 10 A& DO 00596 58S: MOVL 16(FRAMEPTR), PCVAL + 2025 
54 OC AG p60 0598 MOVL 12(FRAMEPTR). FRAMEPTR + 2026 
FA8D 31 0059F BRW 1$ + 1604 
50 D4 005a2 59S: CLRL = RO + 2033 
04 0054 RET > 2035 


3; Routine Size: 1445 bytes, Routine Base: DBGSCODE + 0753 
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; 137 8 § ! GLOBAL ROUTINE DBGSSYMBOLIZE_REG(ADDR, P_SYMID, P_BIT_OFFSET, PRINT_FLAG): = 

3 1318 0 : 1 ! FUNCTION 

; 1920 0 ,! This routine searches through all set modules in the module chain, 

3; 1921 040 1! looking for those symbols in the DST that are bound to the register 

3 19 ¢ 041 1! REGNUM, Once found, they are printed. If none are found, a message 

3 19 8 1! to that effect is output. 

3 1926 04 1! 

3; 1925 044 1 ! INPUTS 

3 19 $ 045 1! AD - Address descriptor. 

; 19 Bee 1! 

; 1928 047 1! P_SYMID - The address of a longword to receive the best 

; i 2 98 ; } possible symbolization of the register address. 

; 1931 050 1! P_BIT_OFFSET = The bit offset off of SYMID. 

3 1336 7 aE 

3; 193 B26 ?¢ 

3: 1934 05 1 ! OUTPUTS 

3; 1935 054 1! On success, prints those symbols (full pathname) that are bound to 

3 1939 so2e : the register. Also returns the best (first) symbolization. 

3; 1938 $oe9 1! On not finding any symbols bound to the register, a message to that 

3; 1939 058 1! effect is output. 

3: 1940 059 «1! 

3; 1941 060 1 

; 130$ 2061 BEGIN 

3 194 $008 

3 1944 206 MAP 

3; 1945 2064 2 ADDR : REF DBGSADDRESS_DESC; 

3 1946 2065 

3 1947 2066 See 

; 1948 2067 SYMID = .P_SYMID: REF RSTSENTRY, ! Best symbolization. 
3 1388 soee § BIT_OFFSET = .P_BIT_OFFSET; ! Bit offset. 

3; 1951 2070 § LOCAL 

3: 1952 2071 ADDRESS ! Byte address 

: 1953 2078 é BYTE OFFSET, : Byte offset : 

: . ' Register number. 

; 1955 074 2 SYMBOL_FOUND, , One or more symbols found. 
3 1956 075 REGNAME : REF VECTORC, BYTE), ' ASCII register name. 
3; 1957 076 MODRSTPTR : REF RSTSENTRY, ' Ptr to current module 
3; 1958 077 ! RST entry. 

3 1959 078 RSTPTR : REF RSTSENTRY ! Unique symbol ID. 

; 1960 079 VAL SPEC : REF DSTS$VAL_SPEC, ; Ptr to DST record's 
: ' value spec. 

3 1906 st BLITRLR : REF DSTSBLI_TRAILER1, oP p. Liss DST record 
: ' trailer. 

3 1964 $B BLIVALSPEC : BLOCK(8, BYTE) ! Value spec buffer for 
Z 1302 One FIELD (OSTSVS_HDR_FIELDS); ! Bliss special cases DST. 
3 1969 686 

3; 1968 

3 1969 088 ADDRESS = .ADDRCDBGSL_ADDRESS BYTE ADDR); 

; 1970 089 BIT_OFFSET = .ADDRCDBGSL_ADDRESS_BIT_oFF SET); 

: 1971 090 

3 137% 091 ; : 

3; 197 092 ! See if the address is a register address. 


| 
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vps erseei 188s PSiTbi8h © eoeade BAC SBace vier s .o35-1 age 48) 


ooo 


' 
if (ADDRESS LSSA DBGSREG_VALUESEO}} OR 
(,ADDRESS GEQA DBGSREG-VALUES(17)) 


N 
RETURN FALSE; 


BPP EEE EE BE FANNIN IIIS DNININININININID 2 2 OOS | DOO DTDOOCOOOOOONO 


Set up to look through all set modules for symbols bound to REGNUM, 
if (MODRSTPTR = .RSTSSTART_ADDR) EQL 0 
SIGNAL (DBG$_NOLOCALS); 


Calculate register number and offset from register address. 


REGNUM = (.ADDRESS = DBGSREG_VALUES(O]) / 4; 
BYTE_OFFSET = .ADDRESS = DBGSREG_VALUESC REGNUM); 


Wr wr— 


Initialize. 
SYMID = 0; 
SYMBOL_FOUND = FALSE; 
Print register name. 
IF .PRINT_FLAG 
THEN 

4 

4 

4 

4 


vost STEERS SERS So os Shenae 


S 


BEGIN 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘address '), 0); 
PRINT_REGNAME ( 

PRINT-BIT_OFFSET 1); 
DBGSPRINT™(UPLIT BYTE (ZASCIC *: '), 0); 
DBGSNEWL INE (); 

DBGSPRINT CONTROL (DBGSK_PRTSET_LMARGIN, TAB); 


DEDEDE DEI II YD et hd 


S25 


: Loop through all set modules. 
WHILE .MODRSTPTR NEQ 0 DO 
BEGIN 


SABORT_ON_CONTROL_Y; 


PROPRIO <8 ot ot ot ot 
OWOWNO UE W OOO NOU FwWN Oo 


: Check to see if the module is set. 
if .MODRSTPTRIRST$V_MODSET) 
BEGIN 


Be eb nots pO AR ID CO DONO EMI ODO NAME UNV MODS NEO FON ODP ara 


ee ee ee ee ed ed nd ed td od 


RIP PIPPINIPUPINIPIPDPIPIPIPIPIIINYNINIAINIPIPIPININIPINPINPPoNoNofnongny 


SOOSCOOOCOOCOOCOCOOoOoOoCoOoSoOo 


! The module was set, so get the first RST entry in the chain. 


RR 


Sig 3 ; 
¥oe=000~~ WecSeoc}9Ge OB:40:46 MGI BLISSSAZ yeOn7e2 rage 85 


' 

! is bound to this register. (An arbitrary decision.) 
' (More work needs to be done to associate the RST with 
the scope) 
i 


F_NOT .SYMBOL_FOUND 
THEN 


SYMID = .RSTPTR; 
SYMBOL FOUND = TRUE: 


OOOOOOOOOMWC 


: Get the next symid in the symbol chain. 
RSTPTR = ,RSTPTRCRSTSL_SYMCHNPTR); 


S3 


Rohonononononofonofernornonnnnnrnnn 
ooooo SSS SSS SSSEE 

Co SANNA 

wr DWNAOVULSWN—OO@On 
POPIPOPIPONINOPOPIPUPINININYAIPIPIPIPUPINIPIPIPUNININININIPIPUNINPPONPY 


o 
oo 
_ 


END; 


; 2031 150 4 ' 

3 5 § ! 1 ¢ RSTPTR = .MODRSTPTRCRSTSL_SYMCHNPTRI; 

: $08 188 

3 : 5 ; : 2 Loop until the module's symbol chain is exhausted. 
: 20 136 4 WHILE .RSTPTR NEQ 0 DO 

; 2038 15 BEGIN 

3; 2039 138 

; 2040 15 

g ek 199 See if symbol is bound to the register in question. 
3 be§ 166 VALSPEC = IS_SYMBOL_BOUND_TO_REG (.RSTPTR, .REGNUM); 
3; 2065 164 : 

3 4 | 165 ! If it is, then use the value spec. to print the 
3; 204 166 5 ' symbolization. 

3; 2048 16 é ‘ 

3 2049 168 IF .VALSPEC NEQ 0 

; 2050 169 5 THEN 

3; 2051 170 5§ IF _ .VALSPECCOST$SV_VS_VALKIND] EQL DSTSK_VALKIND_REG 
s O36 171 «5 THEN 

; 205 76 6 BEGIN 

3 2054 173 6 IF .PRINT_FLAG 

: 2055 174 § THEN 

3; 2056 175 BEGIN 

: 2057 176 7 DBGSPRINT_SYMBOL_PATHNAME (.RSTPTR); 
; 2058 177 7 IF -BYTE_OFFSET NEQ 0 

3; 2059 178 7 THEN 

; 2060 179 7 DBGSPRINT_OFFSET (.BYTE_OFFSET); 
3; 2061 180 7 PRINT BIT OF FSET(BIT_OFFSETS; 

Boe 181 7 DBGSNEWLINE(); 

: 206 se 6 END; 

3; 2064 183 6 

3; 2065 184 6 

3 2066 133 ? The best symbolization is the first symbol found that 
3 187 6 

3 188 6 

3 189 6 

3 190 6 

192 & 

; 1 

3 194 g 

g ; 5 ; 

3 1 $ 

: 198 : 

3 199 

s 00 4 

3 01 4 

; 08 

3 05 

: 06 


Get a pointer to the next module in the chain. 


di 


, GSYMBLZ 
vOe=000 


; 20 7 

3 oes o8 

; 2090 

; 2091 10 

3 36 11 

; 209 1 

3; 2096 1 

: $38 i 

3 $99 18 

; 2098 1 

; 2099 18 

; 2100 1 4 
3; 2101 0 4 
3 106 1 4 
: $10e : ¢ 
$ 4H tg : 

: $ioe 6 

3: 2108 7 

3; 2109 8 

3; 2110 9 

3 2111 0 

§ Ng 31 

: sia 3 

3: 2115 2234 1 


20 


65 72 61 20 73 6C 6F 
20 OF 
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ae ae tt 1 06:4 68 ares. euctopegvnels .039s1 . 18} 
oo repetpe = .MODRSTPTRCRSTSL_NXTMODPTRI; 
! If NOT .SYMBOL_FOUND, then print out a message saying that there are no 
: symbols bound fo this register address. 
if .PRINT_FLAG 
THEN 
BEGIN 
IF NOT .SYMBOL_F OUND 
THEN 
BEGIN 
DBGSPRINT (UPLIT BYTE (ZASCIC ‘no symbols are bound to '), 0); 
PRINT_REGNAME ( ADDRESS) ; 
PRINT-BIT OFFSET (BIT_OFFSET); 
DBGSNEWLINE(); 
END; 
End of routine. 
if .SYMID EQL 0 THEN BYTE_OFFSET = 0; 
BIT OFFSET = .BYTE_OFFSET * 8 + .BIT_OFFSET; 
RETORN TRUE; 
END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
73 73 65 72 64 64 gt 08 pons P.ADC: .ASCII <8>\address \ 3 
C 01 00307 P.ADD: .ASCII <1>\<\ : 
4C 55 21 03 00309 P.ADE: .ASCII <3>\!UL\ 3 
3 30 20 2C 30 $0 C 07 Bo ane P.ADF: .ASCII <7>\, 0, O>\ 3 
20 20 3A 03 00315 P.ADG: .ASCII <3>\: \ 3 
C 01 00319 P.ADH: .ASCII <1>\<\ 3 
4c 55 4 B3 O31B P.ADI: .ASCII <3>\!UL\ . 
3E 0 2¢ 30 20 2c 0 O31F P.ADJ: .ASCII <7>\, 0, O>\ : 
62 6D 79 73 $y 6F of 18 83 ¢ P.ADK: .ASCII <24>\no symbols are bound to \ ; 
74 64 «6€E 6F 6 0 00 3 
C 01 00 3 P.ADL: .ASCII <1>\<\ 3 
4C 55 21 03 00342 P.ADM: .ASCII <3>\!UL\ ; 
3 30 20 2¢ 30 20 2C O07 00346 P.ADN: .ASCII <?7>\, 0, O>\ 3 
PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 eENTRY DOGS S VRGDL ITE REG. Save R2,R3,R4,R5,R6,R7,- : 2036 
B 900000006 00 9€ 02 MOVAB DBGSPRINT. R11 : 
eee G1 ns ee el 2 
56 0c ac 00 00 18 MOVL  P_BIT_OFFSET, R6 : 2068 
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000000006 


000000006 
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28 04 


$3 000000806 
01 


28 000000006 


53 000000006 
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00 00 


00 
000280E8 


eR 


o Oo 
o 
OHNO SP ODOWOMOOO 


SFPONCO WW =U 


ono—-0 90 Ow" OC OoUCUTCW 


NWT DW Orom am rn nooo 


m0 "OOM MOM MOO MMOD TMOMNOSOTNO-9 MIO NOOMIIONIONO 
CTWODDWO0O8 9 — S—NWUVIDO COO *FO "WD OO "™WwwWowolfoffwm 


oo 
= 


AX-11 1. 
DEBUG. SRC 


s-32 vV4.0-74 

DBGSYMBL2.832;1 
RO 

(RO) ADDRESS 

Seceat WA g_VALUES, RO 


9$ 

ROSSRES.VALUES?SS. RO 
ADDRESS, R 
RSTSSTART_ADDR, MODRSTPTR 
a 65 


$SIGNA 


age ah VALUES RO 


RO 


heen NUM 
Daasnes VALUESCREGNUM], RO 
RO. A ADDRE SS, BYTE_OFFSET 


ayRaOL F OUND 

mtsP)- FLAG, 5$ 

R10 

#2. DBGSPRINT 

#1, PRINT_REGNAME 

(R6) 

4$ 

P.ADD 

#1, DBGSPRINT 

(R6) 

P. ADE 

ee DBGSPRINT 
4 DBGSPRINT 


“ADG 
- DBGSPRINT 
> DBGSNEWL INE 


2, DBGSPRINT_CONTROL 
MOORSTPTR 


APTS | biehle CONTROL+1, 7$ 


L1B$S1GNAL 
A DRSTPTR), 1 
pio RS 


#*M<R4,R5> 
is ig SYMBOL . BOUND _TO_REG 


4g 
RSTPTR 


VACSPEC 
#2, (VALSPEC), #3 
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000000006 


000000006 


000000006 
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; Routine Size: 5391 bytes, Routine 
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Base: 
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1D 


DBGSCODE + OCF8 
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6 Ax-11 OL itses 
1 DEBUG. SRC JDBG 
3 


$ 
RINT FLAG, 11$ 
TR 


RSTP 
in DBGSPRINT_SYMBOL_PATHNAME 
vfe_OFFSET 


BYTE_OFFSET 
#), BGSPRINT OFFSET 


10$ 

ADH 

#i, OBGSPRINT 
(Rd) 


vo 


I6(MODRSTPTR) , MODRSTPTR 
PRINT_FLAG, 17$ 
SYMBOC_FOUND, 17$ 

=(SP) 

P.ADK 

#2, DRGSPRINT 

#1, PRINT_REGNAME 

(R6) 

16$ 
P.ADL 
#1, DBGSPRINT 
(R6) 

P.ADM 

#2, DBGSPRINT 
P.ADN 

#i, DBGSPRINT 
#0. DBGSNEWL INE 
ap SYMID 
BYTE_OFFSET 
a(R6Y*CBYTE_OFFSETI, -(R6) 


RO 
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176 
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GLOBAL ROUTINE DBGSSYMID_TO_PRIMARY (SYMID, OFFSET) = 


' FUNCTION 

This routine takes a SYMID and an offse 

and builds a Primary Descriptor for tty object. 

The routine must iret do syabel | table lookups to determine 
the TYPEID, he KIND, and 
It then can build a Pri imary root node and call DBGSBUILD_PRIMARY_SUBNODE 
to create the Primary sub-node. 


Then, if the offset is not zero, the Primary must be 
modified to include the offset information. For example, if 
the Primary is an array, the subscripts can be filled in with 
the appropriate values. 


INPUTS 
SYMID = SYMID for the objec 
OFFSET = offset from the select to the desired address 


OUTPUTS 
A Primary Descriptor is built out of Sonperery memory and a 
2 


pointer to this descriptor and an offset to the primary 
are returned. 
BEGIN 
Pp 
OFFSET: REF VECTOR(O); ! Offset value 
LOCAL 


PRIMPTR: REF DBGSPRIMARY; ! Pointer to a Primary Descriptor 


SYMID better not be zero. 


if .SYMID EQL 0 
$DBG_ERROR ("DBGSYMBLZ\DBGSSYMID_TO_PRIMARY zero symid'); 


i tetas.® space for the Primary Root node and fill in some of the header 
& 


MPTR = GSGET TERPR M_(DBGSK PRIMARY SIZE); 
MPTRCDBG = dacs $6B 

MPTRCDBG$B_D mnt tee = DBG r PRIMARY. D DESC 

PRIMPTR Breen = 0B bese gr RIMARy =Siteenueva: 


painPia DBGSA_PRIM_FLINK); 


PRIMPTRLDBGSL_PRIM “BLINK PRIMPTRLDBGSA_PRIM_ FLINK): 


: Build the rest Primary subnode(s) for given SYMID. 
RETURN BUILD_PRIMARY_SUBNODE(.PRIMPTR, .SYMID, .OFFSET); 


‘7 


) 
vi 


rc — _ — - a 


| 
| =000 
| 
| 


i 


4 47 42 44 5C GSA GC 42 4d 59 $3 47 42 44 
2 41 4D 49 0 SF GF 546 5F 4% 49 4D 59 0350 
g5 JA 20 O56 
64 69 6D 79 20 6F 72 00 
! 
0004 000 
52 06 ar 09 tte 
15 12 00006 
00000000" EF 9F 0000 
1 pb 000 
00028362 8F DD 0001 
000000006 00 03 FB 00016 
9 Dd 0001D 
000000096 00 01 FB O0OtE 
03 AO 000000006 00 90 00026 
02 a0 79 BF 90 00086 
6 4 80 000 
oc a0 2 00 000% 
14 AO 1 AO 9E Hate 
18 Ad 16 AO 9E 0003F 
8 AC DD 00044 
05 8B 00047 
0000V CF 03 FB 00049 
04 0004€ 


; Routine Size: 79 bytes. Routine Base: DBGSCODE + OE7F 
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4 AX-11 Bliss 
$f DEBUG. SRC ID 


DBGSPLIT,NOWRT, SHR, PIC,0 


\) DBGSYMBLZ\<92>\DBGSSYMID_TO_PRIMARY ze\ 


\ro symid\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSSYMID_TO_PRIMARY, Save R2 
YMID, Re 


-ADO 
co 


( 

PRIMPTR) 

PTR), 20(PRIMPTR) 
PTR), 24(PRIMPTR) 
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( 
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, BUILD_PRIMARY_SUBNODE 
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LOBAL ROUTINE DBGSNEW_SYMBOLIZE (ADDR, P_SYMID, P_BIT_OFFSET) = 


FUNCTION: 

This routine accepts a address descriptor, and attempts to symbolize 
it as a symbol name plus offset. 

It always returns the best possible symbolization; if the address can 
be ayyee: ‘yee by more than one symbol name with the same offset, then 
the first is chosen to be the best. 


INPUTS: 
ADDR 


2V 
$ 


4 .0*7% Page 70 
yMBi 9.835: 29° 47) 


So 
oS 


- The address of an address descriptor (byte and bit offset). 


P_SYMID - The address of a longword location where the ‘'symbol identi- 
fier’’ should be returned. The ‘’symbol identifier’’ is a value 
which uniquely identifies the returned symbol. This value is 
not directly understood outside the symbol table access rou- 
tines, but can be passed to various other symbol table access 
routines to extract information about the symbol. 


P_BIT_OFFSET - The address of a longword location where the bit offset from 
the SYMID symbol should be returned. 


OUTPUTS: 

SYMID = A Symbol identifier which uniquely identifies the symbol 
which best symbolizes ADDR is returned to SYMID. This symbol 
identifier can then be peseee to any symbol table access rou- 
tine which accepts a SYMID parameter. If no suitable symbol 
can be found, a zero is returned to SYMID. 


OFFSET = The bit offset of ADDR relative to the SYMID symbol is 
returned to OFFSET. If (SYMID) is zero, this 
offset is simply the original address descriptor. 


SFSZTSSSSS SESS SESS SSF ase Sse Ss 


SsSs s 
FUN OC OONAVNEWN $O OONAU EWN OOONOAUE WR“ OOONOUM 


The routine returns true if symbolization was possible; otherwise it 
returns false. 


Se ee et ee er rrr | 


EF RSTSENTRY, 
FFSET; 


PRIPIPIPIPOPIPOPIPDPONIMNPIPINIMINPINNA 8 a tt en ts a a 


P 
ADDR: REF DBGSADDRESS_DESC; ! Pointer to address descriptor 


OCAL 
BYTE OFFSET, 
SATPTR: REF SATSENTRY; 


POPORIPONMUNONY — Ot Oo os ow 


: See if the address is a register address. 
if DBGSSYMBOL IZE_REG (.ADDR, SYMID, BIT_OFFSET, FALSE) 
RETURN TRUE; 


BEE EE & FAA MAA nonor 
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Reo ; 
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opr 1380 96 b:66 DEBUG. SRC JDBGSYMBLZ.B32;1 . (17) 


TMP"SYMID : REF RSTSENTRY; Temporay symid for %line 


' Lookup the Line number; if found, then print the symbol name 
and Line number. 


MOD_SYMID = sSYMID: 
WHICE .MOD_SYMIDCRST$B_KIND) NEQ RSTSK_MODULE DO 
_SYMID = .MOD_SYMIDCRSTSL UPSCOPEPTR ; 
ADDRESS~= .ADDRCDBGSC ADDRES E_ADDR); 
IF (DBGSPC_TO_LINE_LOOKUP (.ABDRESS, LINE_NO, STMT_NO 
START PC, END-PC, MOD_SYMID)) 


AND (((.LINE_NO NEG 0) OR (.STMT_NO NEQ 0)T 
If (.BYTE_OFFSET NEQ 0) OR (.SYMIDCRSTSB_KINDJ] EQL RSTSK_BLOCK) 


S_BYT 


49 
g 29 : See if the address is a static address. 
5 26 SATPTR = DBGSSEARCH_PROG_SAT (.SATSSTART_ADDR 
6 5 -ADDRCDBGSC_ADDRESS_BYTE_ADDRI, 
7 54 BYTE_OFFSETS; 
8 55 IF .SATPTR NEC 0 
9 2$ THEN 
40 5 BEGIN 
rt 28 SYMID = .SATPTRCSATSL_RSTPTRI; 
38 60 ! If the address is a code address, then print the symbol 
44 61 ! name and corresponding Line number. If there is no Line 
sz 306 number, then just print the routine name and offset. 
247 364 IF (.SYMIDCRSTSB_KIND) EQL RSTSK_ROUTINE) OR 
248 365 (.SYMIDLRSTSB_KINDJ EQL RSTSK_BLOCK) OR 
249 366 (.SYMIDCRSTSB_KIND) EQL RSTSK_LABEL) OR 
250 367 (.SYMIDCRSTSB_KIND) EQL RSTSK_ENTRY) 
251 368 HEN 
S26 369 BEGIN 
25 370 LOCAL 
254 371 ADDRESS, 
255 36 LINE_NO, ' Line no. corresponding to code address. 
256 37 STMT ' statement no. 
257 374 START PC, ! Beginning pc address for Line. 
258 375 END_PC, ' Dummy. 
259 376 MOD_SYMID : REF RSTSENTRY, ' Dummy. 
260 377 TMP_OF FSET ' Temporay offset 
261 378 : 
$66 379 
26 380 
264 381 
265 306 
266 3 
2 4 
2 85 
86 
87 
88 
89 
90 
4 
38 
94 
95 


ODONOUE WN —OOOnN 


BEGIN 

SYMID = DBGSSTA_LINE_NUM_RST(.SYMID, .LINE_NO, .STMT_NO, 
: Pc; .END_PC); 

BYTE_OFFSET = .ADDRESS = .START_PC3 


Sessa enw 
_ 


WN 


= .,ADDRCDBGSL_ADDRESS_BIT_OFFSET] + (8 * .BYTE_OFFSET); 
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! See if the address is a global symbol. 
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Dd. 8 
16-Sep-1984 02:41:4 AX-11 Bliss-32 V4.0-74 
aa tiaets Og ah :e6 DEBUG. SRC IDBGSYMBL2 .B3 31 
! 
IF DBGSSEARCH_GLOBAL (.ADDR, SYMID, BIT_OFFSET, FALSE) 
RETURN TRUE; 
See if the address is on the call stack. 
IF DBGSSEARCH.VAX_CALL_STACK (ADDR, SYMID, BIT_OFFSET, FALSE) 
RETURN TRUE; 
The address was not found, and symbolization was thus impossible. 
SYMID = 0; 
BIT OFFSET = .ADDR; 
RETORN FALSE; 
OOFC 00000 -ENTRY DBGSNEW_SYMBOLIZE, Save R2,R3,R4,R5,R6,R7 
5E 18 C2 90002 SUBL2 #24, SP 
55 08 AC 00 0000 MOVL P_SYMID, RS 
57 0¢ AC 00 00009 MOVL §P-BIT_OFFSET, R7 
7E 04 00000 CLRL -TSP) 
0OAO )}3=— BFFs: BBCOOOOF PUSHR #*M<R5S,R7> 
52 04 Ac 00 0013 MOVL ADDR, R2 
52 DD 0001 PUSHL 
FEOC «CF 04 FB 0019 CALLS #4, DBGSSYMBOLIZE_REG 
03 50 f OO01E BLBC RO, 1$ 
OOBE 31 00 1 BRW 10$ 
5E DD 00024 18: PUSHL SP 
62 DD 00026 PUSHL (R2) 
000000006 00 dD 00028 PUSHL SATS$START_ADDR 
F2CD—SsCCF 9 FB 000 CALLS #3, DBGSSEARCH_PROG_SAT 
D5 000 TSTL  SATPTR 
03 12 000 BNEQ 3s 
008c 31 000 BRW +} 
65 0c AO DO 0003A 28: MOVL 12(SATPTR), (RS) 
23 6 pO ‘ MOVL (R5), R3 
4 16 Ad 9A 0004 MOVZBL 20(R$), R4 
02 54 91 45 CMPB RG, #2 
OF 13 9 48 BEQL 3$ 
03 4 91 4A CMPB OS soaRG, #3 
A 13 40 BEQL 3$ 
04 4 9 4f CMPB soaR4, #4 
5 33 ¢ BEQL 3$ 
08 4 93 CMPBsoaRG, #8 
$$ 1 7 BNEQ 8s 
06 =A D 9 3$: MOVL  R3, MOD_SYMID 
5 04 A p D 4$: MOVL MOD SYRTD RO 
14 ad 91 6 61 CMPB (RO), af 
07 13 00065 BEQL 
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DBGSYMBL2Z 16-5 Sep 14 \Ke11 BLis $-32 V4.0-74 Page 73 
/v04=000 14=Sep =138 96: +e ¢¢ DEBUG. SRCIDBGSYMBLZ -B3 31 9 47) 
04 AE 10 Ad 00 00067 MOVL 1g¢R0), MOD_SYMID : 2386 
EF 11 0006C BRB 4 : 
56 62 pO of 5$: MOVL (R2), ADDRESS t 2387 
| 04 AE OF PUSHAB MOD_SYMID : 2388 
OC AE 9F 00074 PUSHAB END-PC F 
16 AE 3 77 PUSHAB START_PC : 
1 AE 9F OOO7A PUSHAB STMT_NO : 
24 «AE OOF 0 7D PUSHAB LINE-NO : 
56 DD PUSHL ADDRESS ; 
000000006 90 06 Fe 00 CALLS m6, DBGSPC_TO_LINE_LOOKUP : 
0 E9 000 BLBC ; 8$ 3 
14 AE : 90 C TSTL L INE NO : 2390 
0 O8F BNEQ 6 : 
10 AE D 0091 TSTL STMT_NO : 
26 1 94 BEQL ; 
6E D 9096 6$: TSTL BYTE_OFFSET + 2392 
: 12 0009 BNEQ 4 ; 
03 4 91 O009A CMPB RG, #3 : 
1D 12 00090 BNEQ = &$ ; 
08 AE DD OO09F 7S: PUSHL €END_PC + 2396 
10 AE OD O00A2 PUSHL START _PC : 
18 AE DD OOOA PUSHL STMT_NO + 2395 
20 AF DD 0008 PUSHL LINE~NO : 
53 DD 000AB PUSHL R : 
000000006 00 05 FB OOOAD CALLS #5, DBGSSTA_ LINE_NUM_RST : 
65 50 00 00084 MOVL RO, (R : 
6E 56 Oc AE C3 00087 SUBL3 start. PC ADDRESS, BYTE_OFFSET : 2397 
50 6 00 000BC 8$: MOVL BYT set : 2400 
67 04 8240 7E O00BF MOVAQ ey TeattRs By) : 
1¢ 11 000C4 BRB 10$ + 2401 
7E D4 000¢6 98: CLAL Weep) : 2407 
00A4 8F BB 000C PUSHR  #*M<R2 : 
F38E CF 04 FB 00CC CALLS #4, DOGS SEARCH. GLOBAL ; 
OE 0 €8 00001 BLBS RO, 10$ ; 
—E D4 000D4 CLRL ) + 2414 
00AS 8F BB 00006 PUSHR #*°M<R2,R5 : 
F7A6 CF 04 FB 000A CALLS #4, DaGSSEARCH. VAX_CALL_STACK ; 
04 50 €9 OO0DF BLBC =—_s«aRO.:*118 ; 
50 01 DO OO0Ee 10$: MOVL #1. RO : 2416 
04 000E RET F 
$3 D4 OO0E6 11$: CLRL (RS) > 2421 
67 ; DO OO0E MOVL Re, (R7) > 26 é 
50 D4 OOOEB CLRL OR > 26 
04 OO00ED RET > 2hee 


; Routine Size: 238 bytes, Routine Base: DBGSCODE + OECE 
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/v04=00 ergeh= 198s 93:47:89 — Ekeuc. SacSoacs vers .039;1 79° (18) 
; 24 re 5 ! GLOBAL ROUTINE DBGSPC_TO_SYMID(PC, RSTPTR) = 
5 11 4 3 1 ! FUNCITON 
: \¢ 4628 1! This routine pore Prous the Module SAT table and/or Gh obet _* mbol 
: 1 429 1! chain to locate RST for the best match for a address. If t rd 
: 14 430 1! parameter is present, that means if the above 
; 2315 431 1! search failed, this routine goes on searching global symbol chain. 
; $318 4 ¢ > § If the 3rd parameter is not present, that means to search Module SAT 
; 2317 4 1 ! only. 
3 gqi8 434 1! 
: ; i : 5 : INPUTS 
3 3331 ‘4 : : ADDRESS = The address for which a match is desired. 
; $3 g 139 1! RSTPTR = A pointer to RST entry. 
: 2324 440 1! 
3; 2325 441 1! 3rd Parameter - optional. 
3 $3s$ 442 1! 
3; 2327 4435 1 ! OUTPUTS 
3; 2328 444 1! 
3; 2329 2445 1! TRUE - If a match is found. 
; 2330 2446 1! FALSE = otherwise. 
; 2331 2447 1! 
3 ths 2448 1 
3 és0 2449 BEGIN 
3 2334 2450 
; 2335 sta) BUILTIN 
3; 2336 12g ACTUALCOUNT; 
: 2337 245 
3; 2338 Stee LOCAL 
3; 2339 455 ADDR: DBGSADDRESS_DESC, ! Address Descriptor 
; 2340 2456 P ! Bit offse 
3 $803 set SATPTR: REF SATSENTRY; 
; $328 459 SATPTR = spose stencn -PROG_SAT (.SATSSTART_ADDR, .PC, OFFSET); 
3 23446 460 IF .SATPTR NEQ 0 
; See? 461 THEN 
3 § 46 288 pein 
: 2347 46 4 Hd . SATPTRCSATSL_RSTPTRI; 
: 2348 464 RETUR N TRUE: 
3: 2349 465 END 
: 2350 466 IF A TUAL COUNT () EQL 2 THEN RETURN FALSE; 
: 2351 467 ADDR(DBG DRESS_BYTE_ADDR) = .PC; 
: 326 468 ADDR(DBGSL- ADDRESS BIT OFFSET) = 0; 
3 235 469 RE TURN DBGSSEARCH_GLOBAL(ADDR, .RSTPTR, OFFSET); 
3; 2554 470 1 END; 
0000 00000 ENTRY fiers TO_SYMID, Save nothing 3 2425 
5E 9c C 0 SUBL2 «#1 5 3 
—E od PUSHL : 2459 
gs A 00 PUSHL ; 
000000006 8 DD OA PUSHL SATSSTART ADDR ; 
FIFD OCF FB 10 CALLS #3, DBGSSEARCH_PROG_SAT 3 
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, OBGSYMBLZ iSese -1984 261: AX-11 Bliss-32 v4.0-74 Page 75 
04-000 ba aets 1 Og ah :e {DEBUG SRC DBGSYMBLZ.B32;1 9° 1B) 
| 50 D5 90015 TSTL —- SATPTR | 2460 

9 1 1 BEQL Ss : 
08 B ec 6A0 OO 19 MOVL  12(SATPTR), @RSTPTR + 2663 
| 6 01 i Ol MOVE #i, RO + 2464 
02 6¢ ft! 1$ CPB (AP), #2 + 2666 
| 04 AE 06 AC D MOVL PC, ADDR + 2667 
08 AE 04 0002C CLAL bR+ + 2668 
SE DD 0 F PUSHL § + 2669 

8 AC DD 1 USHL RSTPTR : 

C Ae F Q PUSHAB ADDR : 

F335 CF 0 FB 0 t CALLS #3, DBGSSEARCH_GLOBAL : 
50 D4 00030 28: CLRL = RO + 2670 

04 0003F RET : 


; Routine Size: 64 bytes, Routine Base: DBGSCODE + OFBC 


H 8 
GSYMBLZ 16-Sep-1984 41:4 Axe-11 14. s-32 v4.0-74 Page 76 
we ae 95:03:66 DEBUG.SR RCIDBGSYMBLZ .B3 31 . (19) 
rtf Sout ine FIND ROUTINE (PCVAL, PRINT_FLAG) = 
£38 i FUNCTION 
474 ; This routine looks through the SAT to find the most nested routine 
of? containing the PC value passed to the routine. 
t38 i INPUTS 
of8 PCVAL - The PC. 
480 i OUTPUTS 
481 4 If successful, and the module is set, the routine returns the routine 
4 ¢ i RST pointer. 
4 i If successful, and the module is not set, the routine returns the 
48% module RST pointer. 
If unsuccessful, the routine return 0. 
BEGIN 
CAL 
prreese s REF RSTSENTRY, ! Ptr to module's RST entry. 
RSTPTR REF RSTSENTRY, ! Ptr to symbol's RST entry. 
BYTE _OF Byte offset. 


FSET, 
PROG_SATPTR: REF SATSENTRY; Ptr to program level SAT entry. 


Initialize program level SAT pointer. 
PROG_SATPTR = .SATSSTART_ADDR; 


Search through the program level SAT. 
WHILE .PROG_SATPTR NEQ 0 DO 
BEGIN 
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' If current SAT entry is past the address we are looking for, then 
: exitloop. (SAT is sorted on start address.) 


if ;PROG_SATPTRESATSL_START] GTRA .PCVAL 
EXITLOOP; 


NOUS WIC OO~ 


IF ‘. PROG_SATPTRESATSL_START] LEQA .PCVAL) AND 
-PROG_SATPTRLSATSL_END] GEQA .PCVAL) 


BEGIN 


ed et et et at = QOOOE 


' Search the module level SAT looking for a routine whose address 
range includes .PCVAL. (The most nested routine is returned.) 


SEARCH_MODULE_SAT (. ete —SATPTR, .PCVAL, PONS TP IR, RSTPTR, 
BYTE-OFFSET, .PRINT_FLAG); 
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T pointer. 


f 
S 
- -MODRSTPTRCRSTSV_MODSET) 


RETURN .MODRSTPTR; 


:4 Ax-11 igss- 
eo Bliss-32 


V4.0-74 
DEBUG. SRC JDBGSYMBLZ.832;1 


eo eee is not set, can only return at most the module 


If the module was set, make sure RSTPTR is not zero. 
iF .RSTPTR EQL O THEN RETURN .RSTPTR; 


! If the module was set, then find out if the RST entry is a 
val could have more closely symbolized to a 


' routine (the 


: label or bloc 
WHILE .RSTPTRCRSTSB_KIND] NEQ RSTSK_MODULE DO 


within the routine). 


age ene Ten ADE EQL RSTSK_ROUTINE 


RETURN .RSTPTR; 
RSTPTR = .RSTPTRCRSTSL_UPSCOPEPTRI; 


RETURN .MODRSTPTR; 
END; 


Nothing found yet. 


Get next SAT entry. 


PROG_SATPTR = .PROG_SATPTRCSATSL_FLINK); 


We did not find a routine containing the PC. 
RETURN 0; 
END; 


0004 00000 FIND_ROUTINE 


WO 
5E € C2 000 ¢ SUBL2 
52 000000006 00 D 0 MOVL 
1 C 1$: BEQL 
046 AC 06 Ad 01 CMPL 
4F 1A 1 BGTRU 
06 AC 08 ry ot 1 CMPL 
F 1A BLSSU 
8 Ac +4 1¢ PUSHL 
4 AE 9F OOOTF PUSHAB 


Save R2 
wi2, SP 
ATSSTART_ADDR, PROG_SATPTR 


4(PROG_SATPTR), PCVAL 
B{PROG_SATPTR), PCVAL 
PRINT_FLAG 
BYTE_OFFSET 


Page 77 


(19) 


2471 
500 
3508 
Sle 
2518 


3386 


Dd 
Vv 


pe ne 


‘pegsyneut rbeseontgpe Og:tt:46 yanett guiggcs 


| OC AE 


2 V4. 
SYMBL 


F PUSHAB RSTPTR 
| 14 AE OF PUSHAB MODRSTPTR 
06 ACD PUSHL PCVAL 
DD B PUSHL PROG SATPTR 
0000v CF 6 F CALLS #6, SEARCH_MODULE_SAT 
8 AE D MOVL MOBRSTPTR R1 
1 Ai € BLBC }«=._s«@ CR), 38 
4 A p A TSTL RSTPTR 
0 D BNEG 2 
50 04 AE p 0 f MOVL  RSTPTR, RO 
4 00043 RET 
0 6 A 0 ae 28: MOVL RSTPIR. RO 
1 4 A 48 CMPB (RO), #1 
0D 13 0004C¢ BEQL $ 
02 4 OA 4 4 CMPB OCRO), #2 
12 1 3 BEQL «ss $ 
04 AE 10 Ad 00 00054 MOVL  16(RO), RSTPTR 
9 11 00059 BRB 2$ 
50 1 bo 0058 3$: MOVL 1, RO 
4 QO0OSE RET 
52 62 00 0005F 4s: MOVL (PROG_SATPTR), PROG_SATPTR 
AS 11 00062 BRB 1$ 
50 b4 0064 5$: CLaL ~—s._ «RO 
00066 6$: RET 


; Routine Size: 103 bytes, Routine Base: DBGSCODE + OFFC 


Kk 8 

DBGSYMBLZ 16-Sep-1984 02:41: 
‘vOl=000 1e-8ep-19 4 9g: 3hi39 

3 rt 5 $8 ! ROUTINE GET_ADDRESS_DESC (ADDRPTR, ADDRESS_DESC, MESSAGE_VECT) = 

3; 26 : 71 +1 =! FUNCTION 

3; 26 3 i is E This routine interprets an address pegrecencerr (AED for level 2 
3; 24 > is support, Primary or Value Descriptor for level 3 support), and an 

; 2460 74~«1+«S address descriptor is returned. 

3; 2461 7 Se 

: 246 78 1 ! INPUTS 

3 met 4 : : ADORPTR - The address representation. 

; +e2 23 : } ADDRESS_DESC - The address descriptor. 

; te? a MESSAGE _VECT - The address of a longword to contain the address 
3 re 2 § : of a standard message argument vector. 

3; 2470 584 1 ! OUTPUTS 

3: 2471 585 1! If the ADDRPTR type is a permanent descriptor of AED, then the register 
: 247 288 1! address is returned in the byte address field of the address descriptor. 
3; 247 1 3 The bit offset is set to 0. Otherwise, a regular address descriptor is 
3 ere 4 : } constructed and returned. 

3 v4 4 ; On success, STSSK_SUCCESS is returned. 

3; 2478 236 1! On failure, either the routine signals its way out, or returns a 

3; 24679 5935 1! message vector and STSSK_SEVERE. 

3 2480 594 1! 

3; 2481 595 1 

3 248 596 BEGIN 

3; 248 44 

3; 2485 599 ADDRPTR : REF DBGSAED ' Ptr to Address Exp. Desc. 
s $606 $00 ADDRESS_DESC : REF DBGSADDRESS_DESC; ! Ptr to Address Desc. 

H o0¢ LOCAL 

3 2489 60 TYPE; 

$ rer 

: 2491 605 

3; 249 6 ' See if we have a level 2 address expression descriptor. 

5 ‘oi ei check for the permanent symbol AED type. 

3: 2495 609 IF .ADDRPTRCDBG$B_AED_SIGNATURE] EQL DBGSK_AED 

3 £36 610 THEN 

3: 249 611 BEGIN 

3: 2698 olg IF .ADDRPTRCDBG$B_AED_TYPE] EQL DBGSK_PERM_DESC 

3 2499 61 THEN 

3; 2500 614 & BEGIN 

3; 2501 615 4 LOCAL 

; 250 o1¢ 4 REGNUM ' Register Number 

; 250 617 4 PERM_DESC: REF DBGSPERMSD; i Ptr to the permanent symbol desc. 
3: 2504 218 4 

3 2505 619 & 

3; 25 620 4 ! We do, so initialize perm_desc to the AED value field, 

3 4 ° 1 ? } which points to a permanent symbol descriptor. 

3; 2509 6 ; 4 PERM_DESC = .ADDRPTRCDBGSL_AED_VALUE); 
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3; Routine Size: 82 bytes, 


-$ep-1984 02:4 AX-11 Bliss-32 v4.0-74 
1§-s00-196 93: 1}; ‘9 DEBUG. SRCIDBGSYMGL 7.03551 
} Calculate the register number from the perm_desc ID field. 

REGNUM = -PERM_DESCCOBGSB_PERMSD_I1D] = DBGSK_RO; 


Get the address of the register from DBGSREG_VALUES. 
ADDRESS -DESCCDBGSL_ADDRESS_BYTE_ADDR) = A peta VALUESC REGNUM); 


ADDRESS “DESCLDBGSL— ADDRESS~ “B11 _OF FSET) 
RETURN STS$K_SUCCESS; 


Any other kinds call DBGSNGET_ADDRESS to get the addr. desc. 

IF NOT DBGSNGET_ADDRESS (.ADDRPTR, .ADDRESS_DESC, TYPE, FALSE, .MESSAGE_VECT) 
RETURN STSSK_SEVERE; 

RETURN STSSK_SUCCESS; 

END; 


0004 00000 GET_ADDRESS DESC: 


WORD Save R2 
SE 04 C2 90002 SUBL a4, SP 
52 04 AC 0 Ba08 MOVL ADDRPTR Rg 
84 BF 02 A2 91 00009 CMPB so (R2), 13 
23 (12 00008 BNEQ ~=«'1$ 
78 OBF 62 91 0001 CMPB ss (2), -#123 
1D if 0014 BNEQ 1$ 
50 04 a2 D 0016 MOVL  4(R2), PERM_DESC 
51 60 9A OOO1A MOVZBL (PERM DESC); REGNUM 
51 FF38) C19 O10 MOV =200(R1), RE Nua 
50 AC D 90 MOVL § ADDRESS_DESC 
60 0000000060041 dE 0 5 MOVAL  DBGS$REG~ “Heine se ReGNUN). (RO) 
04 AO D4 0002E CLRL. 4 (RO) 
1B 11 00031 BRB 
Oc AC OD 9 3 1$: PUSHL MESSAGE_VECT 
7E 04 CLRL. 0s = (SP) 
08 AE OF PUSHAB TYPE 
8 AC DD PUSHL ADDRESS_DESC 
52 DD PUSHL 
000000006 00 é FB 0004 CALLS #5, DBGSNGET_ADDRESS 
4 0 £8 0004 BLBS ; 2 
0 04 p 004A MOVL #4. RO 
50 01 3 8 ar 2 ROVE #i, RO 
4 0081 ET 


Routine Base: DBGSCODE + 1063 
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ROUTINE GSTADDRESS(RSTPTR) = 


APAAAO 


The address of GST. 


4 
i FUNCTION: 
This routine get the address of GST from GST's RST entry. 
i INPUTS: 
: RSTPTR = Pointer to GST's RST entry. 
t OUTPUT: 
i 


PAA O 


Wr "OC OOnNOu lwo” 


. f 

; 25 

; 25 6 

; 25 BEGIN 

° 2 6 ° 

: 3 RSTPTR: REF RSTSENTRY; ! Pointer to GST's RST entry 
: 25 OCAL 

: 25 DSTPTR: REF DSTSRECORD, ' Pointer to DST record 
; 25 668 GST_VALUE; ! Address of Global symboi 
a: i 

; 25 671 CASE .RSTPTRERST$B_KIND] FROM RSTSK_KIND_MINIMUM TO 
: 25 67¢ RSTSK-KIND-MAXIMUM OF 
; 25 67 SET 

: 25 674 

: 256 675 CRST$K_ROUTINE): 

; 256 676 IN 

; 256 3677 GST_VALUE = .RSTPTRCRSTSL_STARTADDR); 

; 256 678 END? 

; 2566 3679 

; 2567 680 CRSTSK_DATA): 

; 2568 681 a 

; 2569 68 DSTPTR = .RSTPTRCRSTSL_DSTPTRI; 

; 2570 68 GST_VALUE = .DSTPTRCDSTSL_VALUE); 

; 2571 684 END? 

; 278 685 

: 257 6 CINRANGE, OUTRANGE): 

: 257% 68 $DBG, ERROR( 'DBGSYMBLZ\GSTADDRESS'); 

: 2575 688 

: 526 689 TES; 

: 257 690 

; 2578 691 RETURN .GST_VALUE; 

: 2579 

: 2580 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.0 


41 54 53 47 SC SA 4C 42 4D 59 § 44 14 goers P.ADP: . ASCII <20>\DBGSYMBLZ\<92>\GSTADDRESS\ 
53 4 00587 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


ae Be Se Se Se Se Se Se Se Ge Se Ge Se Ge Se Ge Se Se Se Fe Se Ss Se Fe Be Se Ge Se Se Ge Se Se Se Ge Se Sse Se Ge Ge Se Geese Sete Gee a 
AAMAS BEEP LLL 
MEUM $9 OONAVE WN" OOCOnous -—oO 
POIPIPIPIPIPONIPIPIPIPIPOPIPIPIPIPUNIPIPININPIPUPOPPNPYD 
PAPAS 
PAAAOAAO 
we ~ 
=PIPINIPINIPIPOPIPI WIP ALAIN PUNIPIPOPIPUNIPIIINIDY — = ot es 


aes 


eset 


Page 8 


53551 


s-32 V4.0- 
DBGSYMBL7Z.B 


9 
yErsep-1964 OBsat:ug yarns aig 


0000 00000 GSTADDRESS: 


DBGSYMBLZ 
vbe=000 


oe 

rn 

oo 

orm 
~m 
- 
Re 

a 

"= & 

-OO 

<ce 

re) 

° 

ec 


Gem es ese eeseeee se 
—DAARAAAARHAPBHAAAAAAA 


@eQ Orr rrr rrr ere ee K- CO 


~ ak ad Ll 
o roo o 
oO oodvonoond 
N rucucueucuer 
— 
2 
_ 
w C4 
=) > 
a) ‘ 
a <£ &e 
<= > §wMO 
z ‘'avcac 
So - - 
oa “”) w 2 8 
” Yo eonmw 
SF eo 
om s -_— 
owe ~~ -~adg 
~~ O&O OFF>> 
w ec aw t 


4C 5$: 


48 
4F 


oOoooooooooo 
Cooooooooococo 
COOOoOOoooooooo 


uOOoO@O-C-OCOOoOCOy 
Cooaoour O- OOfoO 


er eMmOoDoo 
womoododcan 


00000000" 
00028362 


000000006 00 


Routine Base: DBGSCODE + 1085 


; Routine Size: 


1 


2694 


3; 2581 


nn 


— RST$SB_KIND] EQL RSTSK_TYPCOMP) 
BEGIN 


It was, so get the corresponding DST entry. 
DSTPTR = .SYMIDCRSTSL_DSTPTR; 
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Now get the value spec. 
CASE. .DSTPTRLDSTSB_TYPE) FROM 0 TO 255 OF 
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' Get the value spec for those DST records 
' that can be represented by the standard 
format DST. 


DBGSYMBLZ 16-Sep-1984 02:41:4 AX-11 Bliss-32 V4.0-74 Page 84 
yOe S000 1e-sep-19 4 0g 4h 268 DEBUG. SRC 1DBGSYMBLZ.83 31 (233 
; gs 695 ROUTINE 1$_SYMBOL_BOUND_TO_REG (SYMID, REGNUM) = 

3 2585 697 1 | FUNCTION 

; 2586 698 1! This function accepts a symid as input, and determines if the symbol 

; rH 4 : associated with this symid is bound to the register regnum. 

: 2589 701 1! INPUTS 

; 4 4 : } SYMID = Pointer to symbol's RST entry. 

; % 7046 1: REGNUM = The register number in question. 

; 259 705 1! 

3: 2594 Pe 1 ! OUTPUTS 

; 2595 7 4 The routine returns a DST value spec. if the symbol is bound to regnum 

; 2596 708 1! in some way; otherwise, it returns false. 

: ee 

; 3599 aa BEGIN 

: 2601 $r8 MAP 

: $o8 sole SYMID : REF RSTSENTRY; ! Ptr. to symbol's RST entry. 
: 2604 2716 é LOCAL 

; 2605 717 VALSPEC : REF DSTSVAL_SPEC, ! Ptr to DST record's 

; 2606 2718 § ' value spec. 

; 2607 2719 BLITRLR : REF DSTSBLI_TRAILER1, ! Ptr to Bliss DST record 

; 2608 sis 2 ' trailer. 

; 260 721 2 BLIVALSPEC : BLOCK(8, BYTE) ' Value spec buffer for 

3; 2610 $f5¢ rd FIELD (DST$VS_HDR_FIELDS), ' Bliss special cases DST. 

3 sisi § DSTPTR : REF DSTSRECORD; ! Ptr. to DST record value spec. 
; 3135 

H 726 SABORT_ON_CONTROL_Y; 

; sisi 

; 728 

3 $i¢e See if the entry is a data type. 

; 37 if (.SYMIDCRSTSB_KIND] EQL RSTSK_DATA) OR 

: 3 4 

3 5 

; § 6 

; 0 
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0 9 
16-Sep-1984 161:4 AX-11 Bliss-32 V4.0-74 
la-Sep- 1382 Og: th ee DEBUG. SRCIOBGSYMBL 9.64551 
COSCSK_DTYPE_LOWEST TO DSCSK_DTYPE_HIGHEST, 
DST$K-BOOL, “DSTSk_SEPTYP, DST$K_LBLORLIT 
DSTSK-ENTRY, DSTSR_RECBEG, DSTSR_ENUMELTS: 
VALSP DSTPTRCDSTSB_VFLAGS); 


EC = 
ND: 


Handle the Bliss Special Cases DST Record. 
CDST$K_BLI): 


N 

BLIVALSPECCDST$B VS_VFLAGS] = .OSTPTRCDST$B8_BLI_VFLAGS]; 

BLITRLR echeueaneus eA BL J TRLRT) + ,DSTPTREDST$B8_BLI_LNG); 

BL IVAL SPEC DSTSL_VS_VACUEJ"= .BLITRLRCDSTSL_BLI 1. VALUET: 
ALSPEC = BLIVALSPECCDST$B_VS_VFLAGS); 


! Other types of symbols cannot be bound to a 
register, so ignore them. 


CINRANGE): 
RETURN FALSE; 


' ; Anything else is an illegal DST type. 


LOUTRANGE): 
SIGNAL (DBG$_INVDSTREC); 


TES; 


! Loop through trailing value spec if present to get to actual 
value spec. 


WHILE .VALSPECCDSTSB_VS_V “ S$] EQL DSTSK_VFLAGS_TVS D 


VALSPEC = VALSPECLOSTS -VS_TVS_BASE) # VAL SPECEDSTSL ~VS_TVS_OF FSET); 


SELECTONE TRUE OF 
SET 


} Now, look at the VFLAGS field. 
t. vA sre cLOe lee VS_VFLAGS] EQL DSTSK_VFLAGS_NOVAL): 
RETURN FALSE; 
If valspec gives the offset to a descriptor, just return. 
t. VA sre ClO 50 VS_VFLAGS) EQL DSTSK_VFLAGS_DSC): 
RETURN FALSE; 


If valspec gives a bit offset, return. 
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C.VALSPECCDSTSB_VS_VFLAGS] EQL DSTSK_VFLAGS_BITOFFS): 
RETURN FALSE; 

If valspec is a value-spec-follows, is a complex address. 

C.VALSPECCDSTS$B VS_VFLAGS] EQL DSTSK_VS_FOLLOWS): 
RETURN FALSE; 

} Now look at the VALKIND field for VFLAG non-above. 


C.VALSPECCDSTSV_VS_VALKIND] EQL DSTSK_VALKIND_LITERAL): 
RETURN FALSE; 


C.VALSPECCDSTSV_VS_VALKIND] EQL DSTSK_VALKIND_DESC): 
RETURN FALSE; 


! If valkind is valkind_reg, then check and see if the value 
! field is equal to regnum. If so, then return the valspec, as 
! the symbol is bound to this register. 


' 
! 
1 
! 
C.VALSPECCDSTSV_VS_VALKIND]J EQL DSTS$K_VALKIND_REG): 
IF .VALSPECCDSTSL_VS_VALUE] NEQ .REGNUM 
RETURN FALSE; 


RETURN .VALSPEC; 
END; 


C.VALSPECCDSTSV_VS_VALKIND] EQL DSTSK_VALKIND_ADDR): 


ere is a register displacement, check to see if the regnum 
is equal to regnum. If so, return valspec. 


| 
Leahy EC COST ON VS DSPs 


BEGIN 

c VA SPECCOS TOV VS_REGHUAD NEQ .REGNUM 
RETURN FALSE; 

RETURN .VALSPEC; 

END; 

END; 
TES; 
END; 


! Otherwise, just return false. 
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RETURN FALSE; 


END; 
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VALSPEC), 
(VALSPEC), #255 
(VALSPEC), #253 
(VALSPEC), #3 

#9 #2, (VALSPEC), #2 

#0, #2, (VALSPEC), #3 
1(VALSPEC), REGNUM 

#0, #2, (VALSPEC), #1 

ve. Ben AVALSPEC) REGNUM 
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; f s 4 ! ROUTINE IS _SYMBOL_PSECT(RSTPTR) = 

3; 2760 i 1 ! FUNCTION 

3; 2761 i; 1! This routine determines whether a given symbol is a PSECT or not. 

: 276 i” 3 It accepts as input a SYMID (the given symbol’s RST pointer), and it 
3; 276 7% #1! returns TRUE if that SYMID is the SYMID of a PSECT; it returns FALSE 
3: 2764 ‘+ oe 2 otherwise. PSECTs are represented by Label RST Entries whose DST 

; 19? Brg : } pointer points to a PSECT DST Record. 

3; 2767 $78 1! PSECT names are less desirable symbolizations of addresses than any 
: 2768 79 «1! other kind of Label. 

; 2769 ° » 3% 

; 2770 1 #1! INPUTS 

3; 2771 8 § 1! RSTPTR =- A pointer to the RST entry of the symbol whose identity as 
: 277 885 1! a PSECT is to be established. 

3 e277 884 1: 

3: 2774 885 1 ! OUTPUTS 

3 2775 Hy 1; The routine returns TRUE if the RSTPTR symbol is a PSECT. It returns 
: 2776 887 1! FALSE otherwise. 

3: 2777 888 1! 

; 2778 889 1 

3; 2779 890 BEGIN 

; 2780 891 

3; 2781 89 MAP 

: ree Sez RSTPTR: REF RSTSENTRY; ! Pointer to symbol'’s RST entry 

3 2784 895 LOCAL 

3 re? 538 DSTPTR: REF DSTSRECORD; ' Pointer to symbol's DST record 

: 2787 898 

3; 2788 899 

: 278 900 ' If this is a Label RST Entry, see if its DST pointer points to a PSECT 
3 a: 44 DST record. If so, return TRUE. 

3; 279 90 IF .RSTPTRCRSTSB_KIND) EQL RSTSK_LABEL 

3; 279 904 THEN 

3: 2796 905 BEGIN 

: 2795 906 ; DSTPTR = .RSTPTRCRSTSL_DSTPTR); 

3 re tA IF .DSTPTRCDSTSB_TYPEJ EQL DST$K_PSECT THEN RETURN TRUE; 

3; 2798 909 

: 2799 910 

; 2800 911 ! Jt is not a PSECT--return FALSE. 

: 2801 aig ‘ 

3 one 91 RETURN FALSE; 

3 $B0 914 

3 2804 915 1 END; 


0000 00000 I1S_SYMBOL _PSECT: 


gat? iavsiaetgan 
4 % AO B° 19006 CAPS 29(Rd) #4 
OF 12 0000A BNEQ 
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3; Routine Size: 


ROUTINE PRINT_REGNAME (ADDRESS): NOVALU 
i FUNCTION 


a 

$ep-1984 02:41:4 AX-11 Bliss-3 
et 7 Og: 4} 86 DEBUG. SRC IDBG 
= 

This routine arcepts an address in ceg'ster address area and gets a 


register descriptor by ailing DBGSSTA_ADDRESS_TO_REGDESCR. Then 
n 


converts register descriptor into a counted ASCII “name. 


DBGSPRINT(UPLIT BY 
RETURN 0; 


917 #1 

318 1 

$33 

$52 | 

358 | 

924 1 

925 1 NPUTS 

; § : ADDRESS = The input address which is a register address. 
9 $ 1 OUTPUTS 

; 4 : None. 

931 =#1 

; ¢ BEGIN 

934 LOCAL 

935 NAMEPTR: REF VECTORC, BYTE), ! Pointer to register name 
33 REGDESCR: DBGSREGDESCR; i Register Descriptor 
938 

939 REGDESCR = DBGSSTA_ADDRESS_TO_REGDESCR( ADDRESS); 

940 NAMEPTR = DBGSSTA_REGISTER NAME ( .REGDESCR); 

341 TECZASCIC '!AC'), .NAMEPTR); 

$328 1 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
43 41 21 03 00380 P.ADQ: .ASCII <3>\!AC\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0000 00000 PRINT_REGNAME: 
-WORD Save nothing 


04 AC 0D 0000 PUSHL 
000000006 00 QI FB 0000 CALLS #1, DBGSSTA_ADDRESS_TO_REGDESCR 
0 od 0000¢ PUSHL RE 
000000006 00 1 FB O00 CALLS #1, DBGSSTA_REGISTER_NAME 
pp 1 PUSHL NAMEPTR 
00000000' FF F 00017 PUSHAB P.ADQ 
000000006 00 2 FB 90010 CALLS #2, DBGSPRINT 
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FUNCTION 


offset. 


INPUTS 
ADDRESS 


PROG_SATPTR 
PRINT_FLAG 


OUTPUTS 
P_MODRSTPTR 


' 
i 
' 
' 
P_RSTPTR 
! 

; P_BYTE_OFFSET 
BEGIN 


BIND 
BYTE OFFSET 
MODRSTPTR 


p 
PROG_SATPTR 


LOCAL 
BEST_SAT 
NAM 


NEXT _SATPTR 
SATPTR 
SATRST 
TMPSAT 


! Initialize module 
of this routine. 


SABORT_ON_CONTROL_Y; 
MODRSTPTR™= 0; 
RSTPTR = 0; 


PIR IPRIPIPIPPEPIPIMPINPPIDPPUYDIPSNININIPINIAIII|IIN IA a at st tt tt tk tk tt as tt a 
© ° 


1 
1 
ROUTINE SEARCH_MODULE_SAT (PROG_SATPTR, A 


.P_BYTE_OFFSET, 
P"RSTPTR —: 
=PZMODRSTPTR : 


MODRSTPTR = .PROG_SATPTRESATSL_RSTPIR 
OWN_MODULE_BEGIN = .PROG SATPTRCSATSL 
OWNMODULE“END = .PROG_SATPTRLSATSL_E 


10 
Be sep=19 4 02:41:4 Ax-11 Bliss-32 v4.0-74 Pa 96 
4=Sep-1984 93:4);89 DEBUG. SRC IDBGSYMBL 2.039; 1 9°25) 
R, ADDRESS, P_MODRSTPTR, P_RSTPTR, 
P_BYTE_OFFSET, PRINT_FLAG): ‘NOVALUE = 


This routine searches a set module's SAT to determine what static 
symbol most immediately precedes the given address. 
returns the module RST pointer, the symbol RST pointer, and the byte 


The routine 


- The 32 bit address we want to symbolize. 
- The pointer into the program level SAT. 


- Flag to indicate the symbol to be outputed, in 
here we print the symbols were not picked up 
by this routine which all has the same address. 


- The module RST entry for the symbol if one is found. 


- The RST entry for the symbol if a symbolization is 
possible. 


- The byte offset. 


} eyee offset. 
REF RSTSENTRY, |! The symbol's RST pointer. 
REF RSTSENTRY; ! The module RST pointer. 


: REF SATSENTRY; ! The program's SAT pointer. 


! Pointer to ASCIC string 

' The next SAT ptr in the chain. 
' The module's SAT pointer. 

' Pointer RST entry in SAT 

! Temp. SAT. 


»@ 
m 
wn 
nm 
eS 
—--4 
Lad 
mn 
z 
= 
= 
< 
>. 


: REF RSTSENTRY, 
: REF SATSENTRY; 


RST pointer, as this is used to indicate the success 


<o 
om 
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; 289 001 IF NOT .MODRSTPTRCRST$V_MODSET] THEN RETURN 0; 

: S894 008 

; 2895 004 ! If the module is set, search through the module's SAT looking for 
; 4 Bee a symbol whose address matches the input. 

; 2898 009 SATPTR = ,MODRSTPTRCRSTSL_SAT_PTRI; 

; 2899 008 IF .SATPTRESATSL_START] GTRA TADDRESS THEN RETURN 0; 

; 2900 009 

3 2901 010 

3; 290 011 ! Determine the address range. 

; 290 gig : 

3 2904 1 BEST_SAT = 0; 

; 2905 014 TMPSAT = 0; a 

3 2906 015 NEXT SATPTR = .SATPTRCSATSL_FLINK); : are 
; 2907 016 WHILE .NEXT_SATPTR NEQ 0 DO o. az 

; 2908 017 BEGIN 

; 2909 018 SABORT_ON CONTROL Y; 

> 2910 019 IF_.SATPTRESATSL_END) GEQA .ADDRESS 

3; 2911 020 THEN 

; sole 3021 4 BEGIN 

3 291 Oe 4 IF NOT IS_SYMBOL_PSECT(.SATPTRCSATSL_RSTPTR]) 

7 2914 023 4 THEN 

3; 2915 024 : BEGIN 

> 2916 025 IF .TMPSAT NEQ 0 AND 

3 2917 026 5 -ADDRESS LEQ .TMPSATCSATSL_END] 

3 2918 027 5 THEN 

3 2919 028 6 BEGIN 

3 2920 0¢9 6 BEST SAT = .TMPSAT; 

3 2921 3030 6 TMPSAT = 0; 

3; 29 ¢ $033 6 

: 29 O3¢ 6 
: 2926 033 6 ! If the print _flag is set, output the symbol we did not 
3; 2925 bee 6 ' choose. 

; soe 035 6 ' 

3 2927 036 6 IF .PRINT_FLAG 

; 2928 037 6 THEN 

3 2929 038 7 BEGIN 

; 2930 039 7 

: 9 1 040 7 

: Bs Res 4 } Build the ASCII string for the symbol. 

3 2934 043 7 DBGSPRINT (UPLIT BYTE (ZASCIC ‘address !XL"), .ADDRESS); 
3 2935 44 7 DBGSPRINT (UPLIT BYTE (ZASCIC ': ')); 

: 29 45 7 DBGSNEWL INE (); 

: 2937 046 7 DBGSPRINT_CONTROL (DBGS$K_PRTSET_LMARGIN, TAB); 
3 2938 047 7 DBGSPRINT-SYMBOL_PATHNAME(.SATPTRISATSL_RSTPTRI); 
: 2939 048 7 BYTE_OFFSET = ; ADDRESS - ,SATPTRCSATSL_START); 
: 2940 049 7 IF .BYTE_OFFSET NEQ 

3: 2941 050 7 THEN 

: 9468 051 7 DBGSPRINT_OFFSET (.BYTE_OFFSET); 

3 294 03¢ 7 DBGSNEWL INE ()? 

> 2946 053 7 DBGSPRINT_CONTROL (DBGS$K_PRT_RESET); 

+ 2945 054 6 END; 

: 294 095 6 END 

3: 29% 28 g 

: 2948 05 ELSE 
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; 058 5 BEST_SAT = .SATPTR; 

3 59 4 D; 

; Bey END; 

: $e IF_ .NEXT_SATPTRCSATSL_START] GTRA .ADDRESS 

3 064 EXITLOOP; 

3 Ree 

; 06 ' In bliss, BIND user green ingtulne name = PLIT (....), in this case 
3 068 ! user_meaningful_name == So the choise should not be P.AAA. 
: 89? ' Here is the code to check for this kind of goss Print both 

; On name, the best symbolization one will be printed from the caller. 
: Ore IF : SATPTRCSATSL_START] EQL .NEXT_SATPTRCSATS$L_STARTJ) AND 

3 Be ; (.SATPTRESATSL_END] EQL .NEXT_SATPTRCSATSL_ENDJ) 

; 075 4 GIN 

; O58 4 SATRST = .SATPTRESATSL_R 

; 077 4 NAME = BGSGET DST NAME’ SUATRSTCRSTSL _DSTPTRI); 

: 078 4 IF .NAMECO) NEO O 

; 079 4 THEN 

3 080 5 BEGIN 

; 081 6 IF NOT (.NAMEC1] EQL 2C'P" AND .NAMEC2) EQL %C'.") 

3 082 5 THEN 

; 08 5 TMPSAT = .SATPTR 

$ 084 5 

; 085 5 

5 $058 5 ' Print P.AAA, which we did not choose. 

3 087 5 ! 

3 Sone 5 ELSE 

; 089 6 BEGIN 

3 090 6 IF .PRINT_FLAG 

; 091 $ THEN 

; 09 BEGIN 

3 093 7 

3 094 7 

: 944 4 : Build the ASCII string for the symbol. 

; 097 7 bRGSPRINT (UPLIT BYTE (ZASCIC  bdgross 'XL"), ADDRESS); 
3 098 7 DBGSPRINT (UPLIT BYTE (ZASCIC °: *)) 

: 099 7 DBGS$ 

3 100 7 DBGSPRINT_CONTROL (DBGSK_PRTSET_LMARGIN, TAB) 

; 101 7 DBGSPRINT $VABOL PATHNARE ( SAreTa sat L *RSTPTRI); 
Fy 1 7 he OFFSET arer TRESATSL_START 

3 103 7 BYTE OFFSET a0 

; 104 7 N 

; 105 7 pocorn sy OFFSET (.BYTE_OFFSET); 

3 198 7 DBGSNEWL INE ¢ 

: 107 7 DBGSPRINT NtontROL (DBGSK_PRT_RESET); 

5 138 6 END; 

: 109 

3 110 END; 

3 111 

: 16 4 END; 

3 11 4 

: 114 3 END; 


f 
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SATPTR = ,NEXT_SATPTR: 
NEXT SATPTR = TSATPTRESATSL_FLINK]; 


} Check for special cases. 
if .NEXT_SATPTR EQL 0 
THEN 


BEGIN 
IF (.ADDRESS GEQA .SATPTRESATSL_START]) AND 
(ADDRESS LEQA .SATPTRISATSL_END]) 


BEGIN 
IF .TMPSAT NEQ 0 AND 
ADDRESS LEQ . TMPSATCSATSL_END) 
BEST_SAT = .TMPSAT 
ELS 
BEST_SAT = .SATPTR; 
END; 
END; 
IF .BEST_SAT EQL 0 THEN BEST_SAT = .SATPTR; 
! We have found the best sat, get the symbol's RST pointer and determine 
the maximum byte offset. 
RSTPTR = .BEST_SATCSATSL_RSTPTRI; 
BYTE_OFFSET = .ADDRESS = .BEST_SATCSATSL_START); 
CASE .RSTPTRCRST$B_KIND] FROM RSTSK_KIND_MINIMUM 
TO RSTSKIKIND“MAXIMUM OF 


SET 
CAST PT. RST$K_BLOCK, RSTSK_LABEL, RSTSK_ENTRY): 


Pwy = 


.A.AAA AAA NAIA 


Coooooo 
Www 


SHAALONIVOUUNN aS 
AAAI PIPIPONINIPINNNY — 9 St SS 

WN —O OONOUE WN“ OOONOUES W000 
PENA. A. AAA AAA AAAI AAAI AIA AIA AAAI AAAI NAIA AIAN ANI 


=—OOODWO VE WN OOOO UE WIN" O0On 


' See if the address is a label address. It much match the 
! the label address exactly, or else we find the containing 
$ ty and print that plus line number as the better 
symboli 

I 


DPYEPEXEQEQD Dann BLEEP EE FAWN rpnnnunonononn 2 Ss 


MEM 0 ODN VE WN $$ O OB NO VE WN $0 OOO EWN “OO ODNOUE WN" OVOOnou 


zation. 
iF .RSTPTRCRSTSB_KIND) EQL RSTSK_LABEL OR 
mene RSTSB_KIND] EQL RSTSK-ENTRY 
IF .BYTE_OFFSET NEQ 0 
THEN 
BEGIN 
LOCA STPTR TMP 
6 _TMP; 


RSTPTR_IMP = ,RSTPTR; 
WHILE TRSTPTRERSTSB_KIND] NEQ RSTSK_MODULE DO 


BEGIN 
RSTPTR = .RSTPTRCRSTSL_UPSCOPEPTRI; 


a ee ae ed ed ed ed 
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CoQoooc[eo 
SNS 
NOUS WIN O°” 
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oO 
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4c 58 
4c 58 


5 
5 


3 

1 

5 6F 
3 § 

a. 2 

64 6€ 69 


these 1984 02:4 AX-11 Bliss-32 V4.0-74 
14- att 7 93: 1} 34 DEBUG. SRC IOBGSYMBL? 639; 1 
IF_ .RSTPTRCRSTSB_KIND] EQL RSTSK_ROUTINE 


EXITLOOP; 
END; 


c pRSTPTRERSTSO_KiND) EQL RSTSK_MODULE 
{fg RSTPTRERS TSS LANGUAGE? EQL DBGS$K_MACRO 


BEGIN 
RSTPTR = .RSTPTR_TMP; 
END 


ELSE 
— SDBG_ERROR ('DBGSYMBLZ\SEARCH_MODULE_SAT: routine not found’); 
END; 


CRST$K_DATA): 
BEGIN 
0; 
END; 
CINRANGE , QUTRANGE]: : 
SDBG_ERROR ("DBGSYMBLZ\SEARCH_MODULE_SAT: invalid RST kind"); 


=PIPINIPINIPINININININIWININIWE BS PUI BBB EP 


: If the address was found in the module, MODRSTPTR contains that module's 
; RST pointer. Otherwise, it contains 0. 

RETURN 0; 

END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


20 73 73 65 72 64 6 ¢ 68 88 ra wet ASttt eee 'XL\ 

20 73 73 65 72 64 64 61 08 0 A0 ADT: ASCIL & <I1>\address XL 

4C 462 4D 59 53 47 42 44 oe 5 AF P.ADV: .ASCII \7DBGSYMBL2\<92>\ SEARCH _MODULE_SAT: 
45 4C 55 44 GF 4p 3 2 43 0 BE 

20 7% 6F $f 20 ge 6 6 2 D1 ASCII \tine not fou 

4C 42 4D an a ef O3DF P.ADW: ASCII \ OBES TROL 297 99>\ SEARCH MODULE _SAT: 
45 4C 55 64 4F 4D 3 48 43 0 FE 

20 54 53 52 20 64 69 6C 61 tity <ASCIL \alid RST kind\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 SEARCH_MODULE_SAT: 
58 00000000" EF 9E 00002 MOVAB P.ADR 


Save Reni oR4,R5,R6,R7,RB,RI,RIO,R11 
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GSYMBLZ 18-56 =1986 02:61:46 AX-11 Bliss-32 V4.0-74 
vos 1 ~8ep-19 4 Ost} e6 DEBUG. SRCJDBGSYMBLZ.832;1 
4 16 AC D 9 MOVL P_BYTE_OFFSET, R6 
rf 10 at D 8 MOVL P“RSTPTR $fh 
0D 000000006 00 ‘ 1} BBC at 8 $6v_CONTROL+1, 1$ 
0002808 8F DD 00019 PUSHL #164 
000000006 00 1 FB OOOTF CALLS #1, LIBSSIGNAL 
OC BC 04 ; 1$ CLRL  a@P MODRSTPTR 
6A D4 CLRL 
50 4 ac 09 B MOVL  PROG_SATPTR, RO 
Oc BC fi a p OF MOVL  12(R0), @P_MODRSTPTR 
00000000' EF 04 AO 70 000 MOVG 4(RO), OWN MODULE BEGIN 
0 8 D0 03¢ MOVL §§ @P_MOORSTPTR, R 
01 28 OA FS 9040 BLBS 40TRO), 2$ 
5 18 a0 00 0045 2$: MOVL  24(RO), SATPTR 
5 08 AC DO 00049 MOVL ADDRESS 
57 04 A2 01 00040 CMPL 4(SATPTR), R7 
01 18 00051 BLEQU 3$ 
04 0053 RET 
54 7C 00054 3$: CLRQ =‘ TMPSAT 
53 62 06 0056 4$: MOVL (SATPTR), NEXT_SATPTR 
1 0059 BNEQ 5$ 
0128 31 00058 BRW 16$ 
OD 000000006 00 o1 E1 OO0SE 5$ BBC # DBGSGV_CONTROL*+1, 6$ 
000280E8 8F DD 90066 PUSHL #1640 
000000006 00 01 FB 006¢ CALLS #1, LIBSSIGNAL 
57 08 A2 01 990 6$ CMPL 8 (SATPTR), R7 
74 1 00077 BLSSU 
OC A2 dD 00079 PUSHL 12(SATPTR) 
FF3C OCF or FB 0007¢ CALLS #1, IS_SYMBOL_PSECT 
69 O€ 90081 BLBS RO, 98 
54 D3 000 TSTL TMPSAT 
62 13 00086 BEQL 
08 A4 57 01 00088 CMPL R7, 8(TMPSAT) 
5¢ 614 0008C BGTR 
55 54 DO O008E MOVL § TMPSAT, BEST_SAT 
54 04 00091 CLRL =‘ TMPSAT 
56 18 AC £9 0093 BLBC = PRINT_FLAG, 9$ 
57 DD 0009 PUSHL 7 
5B DD 00099 PUSHL R11 
000000006 00 02 FB 00 CALLS #2, DBGSPRINT 
0c AB 9F OOOA PUSHAB P.ADS 
000000006 0 1 FB OOOA CALLS #1, DBGSPRINT 
000000006 0 0 FB QOOA CALLS #0, DBGSNEWLINE 
4 DD 0008 PUSHL #4 
1 0D 0008 PUSHL #1 
000000006 00 é FB 0008 CALLS #2, DBGSPRINT_CONTROL 
OC A2 DD 000BE PUSHL 12¢ 
000000006 09 01 FB 000CI CALLS #1, DBGSPRINT_SYMBOL_PATHNAME 
66 04 Ag C3 000C8 SUBL3 4 (SATPTR), R77 (RO) 
09 1 CD BEQL 86 7$ 
6 DD OOOCF PUSHL  (R6) 
000000006 00 1 FB 00001 CALLS #1, DBGSPRINT_OFFSET 
000000006 00 Q FB 00008 7%: CALLS #0, DBGSNEWLINE 
DD OO0DF PUSHL @# 
000000006 00 1 FB £1 CALLS #1, DBGSPRINT_CONTRCL 
3 1 OE BRB 
55 DO OOOEA 88: MOVL §SATPTR, BEST_SAT 
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DBGSYMBLZ Sep-1 
yOS=000 1e-808} 
57 04 Ad 01 ED 9$: 
0090 $4 o00FS 
04 A3 04 A D1 F6 10$: 
eC 1 FB 
08 AB 08 Ag OFD 
» # SBE 
000000006 99 QI FB 001 
ag 88h 
67 1 te 
50 soBF 01 AB 9 0119 
2€ 02 3 91 61 5 
05 13 00124 
54 2 D0 00126 11$ 
55 11 00129 12s 
Resi ie og 
OF AB 9F 00131 
000000006 00 va 02 Fe 091 é 
000000006 00 01 FB 001 E 
000000006 00 00 FB 00145 
01 DD 0014 
000000006 00 02 FB 0130 
comms eg 
09 8 00165 
66 DD 00167 
000000006 00 01 FB 0169 
000000006 00 00 FB 0170 148: 
000000006 09 o1 FB 0179 aie 
FED ef 01 g , 
5 03 01 16$: 
le 12 001 
04 A2 > pi 1 A 
08 A2 8 D1 001 
$6 ps 00196 
aE 
Se 5 a Ble 
. et 
55 5 i) 1A5 178: 
i) 1 18$: 
0 ; 1AA 
55 D0 OO1AC 
6A 0c A D 1AF 198: 
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DEBUG. SRC JDBGSYMBLZ.B 
EXT_SATPTR), R7 


ATPTR), 4(NEXT_SATPTR) 

ATPTR), 8(NEXT_SATPTR) 
nite SATRST 
DBGSGeT _DST_NAME 

Me ) te 

AME), #80 

AME), #46 

PTR, TMPSAT 


ne FLAG, 15$ 


N 
$ 
$ 
§ 
$ 
: 
(S 
(SA 
A 


5 
4 
1 
1 
4 
1 
{ 
1 
1 
’ 
R 
( 
15$ 
1(N 
11$ 
153 
SAT 
1 

Pp 


( 
0 
6 
( 
2 
( 
HE 
0 
N 
5 
( 
1 
( 
3 
A 
5 
R 


a3 ONRGSPRINT 
p «Abu 
DBGSPRINT 
a0: DBGSNEWL INE 
Bit DEGSPRINT _CONTROL 
OBGSPRINT SYMBOL _PATHNAME 
cCEAtPIRD, (RB) 
(Re) 
a. DBGSPRINT_OFFSET 
, DBGSNEWL INE 


; 
#1, DBGSPRINT_CONTROL 
NEXT_ SATPTR, SATPTR 


XT_SATPTR 

is 4(SATPTR) 
8(SATPTR) 

TMPSAT 

R7, 8(TMPSAT) 

TMPSAT, BEST_SAT 


SATPTR, BEST_SAT 
37 _SAT 


ATPTR BEST_SAT 
2(BEST_SAT)> (R10) 
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DBGSYMBLZ 1a-Se 1984 02:461:4 AX-11 Bliss-32 v4.0-74 
Mb 000 12-g08= 4382 98:34:86 DEBUG.SRCIOBGSYMBL 9.6551 
3 044 Og ! ROUTINE BUILD_PRIMARY_SUBNODE(PRIMPTR, SYMID, BIT_OFFSET) = 
: 3099 oii FUNCTION 
: 3100 be 1! This routine is a recursive routine to be called to build the 
; 3101 09 1! Primary subnode. for Array or Record type, we need to do 
3 196 w RE more work to synbot ize down to record component or array element 
3 197 V} ! H level. For other type, return the primary from this routine. 
: 3105 i 1 i INPUTS 
: 138 1461! PRIMPTR = Pointer to Primary. 
; 310 16 1! 
: 3108 1g 1! SYMID - Pointer to SYMID. 
; 3109  e3 
3 119 \8 : BIT_OFFSET = Bit offset to the given object. 
: 13 30 1 ' ouTPUTS 
3; 311 .. foe Return value is the pointer to Primary. And Bit offsets to the 
3 3113 $s¢ i } primary is passed back to the caller. (BIT_OFFSET updated accordingly). 
: 3116 234 Be 
3 3118 § é BEGIN 
: 3119 MAP 
3; 3120 $ 8 BIT OFFSET: REF VECTORC,LONG), ! Bit offset to Primary 
; 3121 229 PRIMPTR: REF DBGSPRIMARY, ! Pointer to Primary 
; \$¢ SYMID: REF RSTSENTRY; ! Pointer to Symid 
; 156 é LOCAL ; 
: 3125 3 FCODE, ' Feode of the symid to be build 
3; 3126 234 KIND ! Kind of this pyaie to be build 
: 127 3235 TYPEID: REF RSTSENTRY; i Pointer to TYPEID for the SYMID 
; 144 $530 DBGSGL_CURRENT_PRIMARY = .PRIMPTR; ! Update the current primary 
; 313) 3239 FCODE = 0; 
; 132 240 TYPEID = 0; 
; 313 350! DBGSSTA_SYMKIND (.SYMID, KIND); 
: 3136 “8 
; 16 gui Check to see if this is a data item, if it is get more inforamtion. 
; 138 46 if .KIND EQL RSTSK_DATA OR 
3; 3139 4 KIND EQL RSTSK_TYPCOMP OR 
; rs $8 Kino EQL RSTSK_TYPE 
; 148 30 DBGSSTA_SYMTYPE(.SYMID, FCODE, TYPEID); 
: 3144 5 : 
3 3145 36 ! Call DBGSBUILD_PRIMARY_SUBNODE to build a subnode and fill in all of 
: 166 38 : the subnode information. 
: 148 36 LF «KIND EQL RSTSK_TYPE 
> 3150 38 BEGIN 
3; 3151 5 KIND = RETSK_DATA; 
2 136 60 SYMID = Q; 
3; 315 61 : 
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) 

} ; 

) 
’ é 

) 

) : 

1 32 


DBGSBUILD_PRIMARY_SUBNODE(.PRIMPTR, .KIND, .SYMID, .FCODE, -TYPEID, 0); 
' Do more work for array and record component --_ Symbolize down to 
the components + offset. For example, Array+15 <--> Array(3)+3. 

CASE .FCODE FROM RSTSK TYPE MINIMUM TO RSTSK_TYPE_MAXIMUM OF 


shh 1; _TYPE_ARRAY]: 
- DBGSGL_ARRSUB_FLAG 


N 
PRIMPTR = SYMBOLIZE_ARRAY_ELEMENT(.PRIMPTR, .BIT_OFFSET) 
PRIMPTRCDBGS$V_DHDR_AGGR] = FALSE; 


stole * TYPE RECORD: 
LF ,OBGSGL_ RECCMP_FLAG 


PRIMPTR = SYMBOLIZE_RECORD_COMPONENT(.PRIMPTR, .BIT_OFFSET) 
PRIMPTRCDBG$V_DHDR_AGGR] = FALSE; 
rn, OUTRANGE): 


FUN “OC OONAOUE wT 


ioe pie anode 


TES; 
RETURN .PRIMPTR; 
EN 
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0004 00000 BUILD shape SUBNODE : 


Save R2 3205 


5E 0c ¢2 0000 SUBL2 #12, SP : | 
52 04 AC 00 0000 MOVL PRIAP PTR 3 3237) 
000000006 00 52 00 0009 MOVL R2 bae$cl CURRENT_PRIMARY : 
04 AE 7C 0001 CLRO  ~—s« TYPEID : sa 
5E DD 0001 PUSHL Pa : 3241 
08 AC 0D 0001 PUSHL F 
000000006 00 02 FB O18 CALLS i SDaGSSTAL SYMK IND tae 
f 13 8 2 BEQL F 
OA 6E D1 00024 CMPL KIND, #10 : 3247. 
05 13 00 7 BEQL ~=s«sM'S : 
07 6 pi 029 CMPL KIN D, #7 > 3248 
10 12 0002C BNEG 2 ; 
04 AE OF OOOZE 1S: PUSHAB TYPEID : 3250 
OC AE OF 1 PUSHAB F CODE : | 
08 aC DD PUSHL SYM F 
000000006 00 0 Fe ? CALLS a3. DBGSSTA. SYMTYPE : 
7 oe : iF 2%: CPL ND, #7 : 3256 
6€ 8 6 043 MOVL #6, KIND : 3259 
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voe=000 14-Sep-19 4 9 TPs DEBUG. SRC JDBGSYMBLZ.832;1 , JF} 
ROUTINE GET_RECORD_COMPONENT(PRIMPTR, COMPTR, BIT_OFFSET, SYMID, OFFSET, IDX) = 


FUNCTION 
This routine calculates the record component offsets to the record 


Nw 


Return value is the pointer to the primary. 

Note: The primary returned from this routine may not be in a stable 
state. (The infomation in the root node may not be updated properly). 
When ~ py time around to build primary subnode, it will be updated 
properly. 


93 «1 
9% «1! 
9S 1! 
38 7! 
97 1! address and then compares the value with the offset to the pe ssery 
3 1! we got so far. If the value we just calculated is better than the 
9 3° one we got so far, choice this one instead. This routine is 
00 1! recursive in a sense that if one of the record component is a 
8 1! variant, we need to get a List of the variant components. Then 
1: figure out the offsets for each variant and choose the better 
8 ; } variant for the given record component. 
05 1! INPUTS 
8 : } PRIMPTR = Pointer to Primary descriptor. 
, : COMPTR = Pointer to the record component or variant component. 
’ : ! BIT_OFFSET = Offset value to the Primary. 
3 : SYMID = The symid we choose for the record component, or variant. 
; : ; OFFSET = Offset value of the component. 
; Vi IDX - Ith component index. 
OUTPUTS 
1 
1! 
2% 
1! 
1! 
1 


BEGIN 


MAP 
BIT_OFFSET: REF VECTORC,LONG), 


COMPTR: REF RSTSENTRY 
OFFSET: REF VECTORC,LONG), 


PRIMPTR: REF DBGSPRIMARY, 
SYMID: REF VECTORC,LONG); 


Desired offset value to Begin of 
the Record 

Pointer to component RST 

Offset Value to Begin of the Record 
for SYMID 


POIPIPIPIPUPIPIPINIPININININININININININNINININININID 2 2 2 2 tS OS Se 


SSGFEREASLSVSVERROESLSSHVS ARAVA SSSLE APG OLB VS AR I LODO ae 


Pointer to Primary Root Node 
Pointer to desired RST 


as ths thie the ie hn the ete aks thee tv in utente tix Oe Gn Ee Od Se De bee En ty BN Oe Re Reen teen OheetnteseeeeneetetntetseeMen ee | 


5 
$ BUILTIN 
: REMQUE ; 
0 LOCAL 
1 COMPVECPTR: REF VECTORC,LONG), ! Pointer to a List of variants 
i} DUMMY, ' Dummy as it is 
KIND ! Data kind 
ry SUBNODE: REF DBGSPRIM_NODE, i Last primary subnode 
5 TAGID ! Variant Tag variable 
$ TAG_NAME: REF VECTORC.BYTE), | Variant Tag name 
40 4 ia ' Tag value 
41 8 TMP OF FSET, i Temporary offset 
42 4 TMP_SYMID, ! Temporary symid 


csr . —————————————————— 
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VAL_DESC: REF DBGSVALDESC, ' fag Value descriptor 
VALKIND, ' Data value kind 
VALPTR: VECTORE3, LONG) ' Data value 
VARIANT: REF RST$VAR_ENfRY; i Variant 


DBGSGL_CURRENT_PRIMARY = .PRIMPTR; ! Update the current primary 
Set the context for the given RST entry. 


DBGSSTA_SETCONTEXT(.COMPTR); 
DBGSSTA-SYMKIND(.COMPTR, KIND); 


PEANUT 


WO OONOUS wn 


DODONAEA SO VOODNAUEW 
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Check to see if this is a variant. 
if .KIND EQL RSTSK_VARIANT 
THEN 


BEGIN 
VARIANT = 0; 


! Check to see if this variant has a tag variable. Also check to 
see if the tag variable has a name. 
iF (TAGID = ,COMPTRCRSTSL_VARTAGPTRJ) NEQ 0 

BEGIN 

eg attr pet TAG_NAME ); 

IF .TAG-NAMECO) NEQ 

THEN 

BEGIN 


80 


Build a subnode for the tag variable. 
PRIMPTR = BUILD PRIMARY _SUBNODE(.PRIMPTR, .TAGID, .BIT_OFFSET); 


BNO SRNO AE UN OOR WOR UO 


3 
: 


81 
38 
84 
85 
37 
88 
89 
90 
9 


Get the value for the tag variable. 


DBGSPRIM_TO_VAL(.PRIMPTR, DBGSK_VALUE DESC, VAL_DESC); 
TAG_VAL = .VAL_DESCCOBGSL_VALUE- VALUED); 


Rohononofononsnnopofononnfonferfer 

$ SS LSSESSESE 
WANA 
SELESEERE 


' Call variant select routine to select the variant components 
given tag value and the pointer to the variant. 


VARIANT = DBGSSTA_VARIANT_SELECT(.TAG_VAL, .COMPTR); 

! We have no use for the tag variable, take it off from the 
subnode. 

REMQUE (.PRIMPTRCDBGSL _PRIM_BL INK), DUMMY) ; 


£2332 
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END; 
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We have got variant components. 
if .VARIANT NEQ 0 
THE 


SUBNODE =~ TERIAP TREDBGEL bein: BLINK; 
SUBNODE[DBG$L_PNVAR_TAGID TAGID; 
SUBNODE CDBG$W_PNVAR- INDEX] = 1; 
SUBNODE [DBG$V— =PNVAR =VALID = TRUE; 


0 BEGIN 

: 

1 ! Build subnode for this variant, fill in information. 

! } ent 6 Remember to take this node away, if this is not what we 
; want. 

1 

1 SBcSBUIL DPR el ead etree bee)) -PRIMPTR, RSTSK_VARIANT, 0, 

: —_VAR 

1 

1 

2 

2 


WANNA NAA 


SUBNODE [DBG$W_P' OnP = VARIANT 


PP OP 9 oP oD DS ee te 
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Lt} 1 fololeololalolo) 
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MPS) RSTSL_ 
SUBNODE [DBGSL— “PN NVAR Cone LST] = VARIANTCRSTSA_ 
RJ RSTSL 
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3 
; 
3 
335 SUBNODE CDBGSL— ~PNVAR_ ~DSTPT = .VARIANT “th 
32 
335 ! Calculate the offsets of the variant components. Call 
$35 GET_RECORD_COMPONENT to get the better variant component. 
339 3 COMPVECPTR = VARIANT RSTSA_VAR_COMPLSTJ; 
3 3 TMP_SYMID = DCO 
33 3 IMP“OFFSET =" -OFFSET(O); 
33% Z INCR 1 FROM 0 TO . VARIANTCRSTSL _VAR_COMPCNT) = 1 DO 
333 4 PRIMPTR = GET ee vi _COMPONENT(.PRIMPTR, .COMPVECPTRC.1), 
333 4 BIT “OFFSET, TMP _SYMID, TMP_OFFSET, nor 
336 4 END; 
HH 44 
; 445 
i rr If we did not find one, take the subnode off. 
41 448 if .TMP_SYMID EQL ~ SYMIDLO) AND 
§ ret . TMP OFFSET EQL .OFFSETLO) 
$ $2) REMQUE (.PRIMPTRCDBGSL_PRIM_BLINK], DUMMY) 
ce 188 
347 454 ! We got one variant component. 
48 455 : 
9 +38 ELSE 
50 45 BEGIN 
51 458 areeete = .TMP_SYMID; 
5 459 OFFSETCO) = . TMP OFFSET; 
s 460 SUBNODE LDBGSW "PNOAR. INDEX J = .1DK + 1; 
54 461 END; 
55 reg 
56 46 END; 
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END 
! This is the normal case 
Select the smallest posit 
ELSE 


BEGIN 
gee ty SYMVALUE (. COMPT 
HF gi VALKINO EQL DBG$K wv 


BEGIN 
LOCAL 
VAL _OF FSET; 
VAL OFFSET = .VALPT 
i OFFSET LEQ 


BEGIN 
IF (.B1T_OFFSET 
THEN 


CDBG 


RETURN .PRIMPTR; 
EN 


5E 24 

52 046 =A 

000000006 00 2 
000000006 00 1 
4008 F 
000000006 60 2 
08 

oof} 
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pt the component offset value. 
ve offset. 


R, VALPTR, VALKIND); 
AL ADDR 


RCO) * 


gt VALPTROE1); 
.BIT_OFFSETLO) 


CO] = .VAL_OFFSET) LEQ (.BIT_OFFSETCO) = .OFFSETCO)) 


OFFS 
“pRINPTECDoaSt PRIM BL INK; 
$W_PNREC_INDER) = i; 


! End of ELSE clause for non-variant type of 
i record component. 
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0 90003 ROVE A Mpbesor. ~CURRENT_PRIMARY 
i 0012 CALLS 1, DRGSSTA. SETCONTEXT 
FB 6 1 CALLS ‘A a STA. SYMK IND 
Ts 99057 Beat 
D4 00 C 1% CLRL VARIANT 
DO 0002E MOVL  16(R3), TAGID 
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HP DBGSSTA_SYMNAME 

BIT ors 1 

#*M2R2_R 

rie BULLS PRIMARY, SUBNODE 
VAL peice 
2 hie 4 

pRInPTR, 
: DBGSPRIM. TO_VAL 

vat DESC, R 

32(R0) + tas. VAL 

a, DBGSSTA_ VARIANT_SELECT 

aek<h2) DUMMY 


= (SP) 

#19 

wii, 
PRIMPTR: Re 


#6 DaGSBUILD PRIMARY _SUBNODE 
24(R2), SUBNO 


C 
D, TMP_SYMID 
Ef, TMP_OFFSET 


CORD. COMPONENT 
1, 3% 

TMP _SYMID, "asYmiD 

TMP OFFSET, OFFSET 


PRIMPTR, RO 
@24(RO0), DUMMY 
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a, DBGSSTA_SYMVALUE 
ALKIND, #2 

VALPTR RO 

@VALPTR+4(ROJ, VAL_OFFSET 


OF 
VAL_OFFSET, @BI1T_OFFSE 
$ 


S 
T 
VAL OFFSET, @BIT_OFF ! 


R4 
a0FFSET, ab1T_OFFSET 
R4, R 
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AL OFF @OFFSET 
4(R2), SUBNOD 

1, IDK, 24 (SUBNODE) 
Ri RO 
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ROUTINE SYMBOLIZE_ARRAY_ELEMENT(PRIMPTR, BIT_OFFSET) = 


FUNCTION 
This routine figures out the array element from offset value to 
the start of the array. And build primary subnode for the 
array element. 


INPUTS 
: PRIMPTR = Pointer to Primary descriptor. 


BIT_OFFSET = Array element offset value in bits to the start of 
the array. 


OUTPUTS 
Return value is the poroter to the primary descriptor for the 
array element. BIT_OFFSET is the offset value in bits to 
the primary. 


BEGIN 
MAP 
BIT_OFFSET: REF VECTORC,LONG), ! Array cell Bit offset to arra 
PRIMPTR: REF DBGSPRIMARY; ! Primary descriptor for the object 
LOCAL 


ARRAY_SUBNODE: REF DBGSPRIM_NODE,! Pointer to Array subnode 

ARRAY _SUBVEC: REF DBGSPRIM_NODE_SuBs, ! Pointer to array subscript info 
BOUND FLAG, ' Flag to indicate the bound is exceeded 
OFFSET, ' Offset value 

STRIDE; ! Stride along each dimension in bits 


ARRAY_SUBNODE = .PRIMPTRCDBGSL_PRIM_BLINK); 
LF. ARRAY_SUBNODELDBGSB_PNODE FCODEI NEQ RSTSK_TYPE_ARRAY 
$DBG_ERROR("DBGSYMBLZ\SYMBOLIZE_ARRAY_ELEMENT"); 


We treat the start of the array is the first array element. 
IF .BIT_OFFSETCO] EQL 0 
THEN 


BEGIN 
ARRAY_SUBNODECDBG$V_PNODE_EVAL] = TRUE; 
RETURA BUILD PRIRARY_SUBNODE(.PRIMPTR, . ARRAY _SUBNODE [DBGSL_PNARR_CELLTYPE], 


ide the offset by largest stride and then adjusted by the lower bound, 
s is the subscript we want. 
T 


= .BIT_OFFSETCO); 
¥_SUBVEC = ARRAY_SUBNODE[DBGSA_PNARR_SVECTOR); 


G = FALSE 
ARRAY _SUBNODE COBG$V_PNARR_COLUMN] 
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3 60 THEN 

; 61 BEGIN 

: 2 ; DECR I FR FROM ,ARRAY_SUBNODECDBGSB_PNARR_DIMCNT] - 1 TO 0 DO 
; 64 4 IF ARRAY _SUBNODE CDBGS$V_PNARR_BITREF J 

; 564 4 STRIDE = .ARRAY_SUBVECL.1, DBG$L_PNSUB_ STRIDE] 

: 568 4 ELSE 

; 369 4 STRIDE = .ARRAY_SUBVECE.1, DBGSL_PNSUB_STRIDE] * 8; 
; 31 4 ARRAY suBVECC. 1, DBGSL_PNSUB_SVALUE) = 

; 226 4 OFFSET / . STRIDE * J ARRAY “SUBVECL. 1, DBG$L_PNSUB_LBOUND); 
; 574 4 IF .ARRAY_SUBVECE.1, DBGSL_PNSUB_SVALUE) GTR 

; 375 4 cARRAY “SUBVECE.1; DBG$L~PNSUB~UBOUND 

; 377 4 BOUND_FLAG = TRUE; 

: 579 4 OFFSET = .OFFSET MOD .STRIDE; 

; 580 ND; 

5 581 

3 286 END 

3 58 

; 584 ELSE 

; 585 BEGIN 

; 586 ; INCR I FROM 0 TO .ARRAY_SUBNODECDBG$B_PNARR_DIMCNT] - 1 DO 
; He 4 1F ARRAY. SUBNODE CDBG$V_PNARR_BITREF J 

; 3590 4 STRIDE = .ARRAY_SUBVECC.1, DBG$L_PNSUB_STRIDE) 

; 3398 4 ELSE 

; 3593 4 STRIDE = .ARRAY_SUBVECC.1, DBGSL_PNSUB_STRIDE) * 8; 
; 3595 4 ARRAY SuBVECE. 1, DBGSL_PNSUB_SVALUE) = 

; 3596 4 OFFSET / STRIDE + .ARRAY_SUBVECL.1, DBGSL_PNSUB_LBOUND); 
; 598 4 IF .ARRAY_SUBVECC.1, DBGSL_PNSUB -SVALUE) GTR 

; 399 4 cARRAY “SUBVECE.1. DBG$L~PNSUB~UBOUND 

; 601 4 BOUND_FLAG = TRUE; 

; £08 4 OFFSET = .OFFSET MOD .STRIDE; 

; 604 END; 

; 605 

5 6 END; 

; 60 

; 208 608 

3 4 tts : Make sure the subscripts calculated from above are not exceed the bounds. 
: 3505 611 OFFSET = 0; 

3 206 olg INCR J] FROM 0 TO .ARRAY_SUBNODECDBG$B_PNARR_DIMCNT] - 1 DO 

; 3508 614 IF .BOUND_FLAG 

: 3509 615 

: 3510 616 ARRAY_SUBVECL.1, DBGSL_PNSUB_SVALUE) = 
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AXx-11 8 ; 2 neh ate 
DEBUG.S $ 2.832;1 


$8_PNARR_DIMCNT); 
DBGSL_PNARR_CELL TYPE), 


DBGSPLIT,NOWRT, SHR, PIC,0 


QO4QE P.ADX: ASCII \!DBGSYMBLZ\<92>\SYMBOL IZE_ARRAY,ELEMENT\ 


DBGSCODE .NOWRT, 


ELEMENT: 

Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
PRIMPTR. Ri 

(R10), ARRAY_SUBNODE 
ARRAY_SUBNODE), R 

R7), Fi 
A 


SHR, PIC,0 


a 617 -ARRAY_SUBVECL.1, DBGSL_PNSUB_UBOUND]; 
; 1§ 619 IF ARRAY SUBNODECDBGSV_PNARR, BITREF J 
3 315 6 1 STRIDE = .ARRAY_SUBVECC.1, DBGSL_PNSUB_STRIDE] 
; 219 é j ELSE 
; 218 6 4 STRIDE = .ARRAY_SUBVECC.1, DBGSL_PNSUB_STRIDE] © 8; 
: 35 9 6 : OFFSET = .OFFSET + .ARRAY_SUBVECC.1, DBGSL_PNSUB_SVALUE] * .STRIDE; 
ne: : 
; 2 ¢ ? , Adjust the offset. Based on A(0,0,...). 
; 326 63¢ if . ARRAY _SUBNODE [DBG$V_PNARR_BITREF J 
: 3528 634 BIT_OFFSETCO] = .BIT_OFFSETCO] + (+1 * .ARRAY_SUBNODECDBGSL_PNARR_OFFSET)) 
: 388 634 LSE 
; 331 637 BIT_OFFSETCO) = .BIT_OFFSETCO] + (-8 * .ARRAY_SUBNODECDBGSL_PNARR_OFFSETI); 
; 32 5 639 
; 33 640 BIT_OFFSETCO) = .BIT_OFFSETCO] = .OFFSET; 
: 233 641 ARRAY _SUBNODECOBG$V_PNODE _EVAL) = TRUE; 
3 35 64 ARRAY SUBNODELDBG$B~PNARR~SUBCNT) = .ARRAY_SUBNODE(DB 
3 3537 64 RETURN BUILD PRIMARY_SUBNODE(.PRIMPTR, .ARRAY_SUBNODE 
; 3538 644 -BIT_OFFSET); 
: 3539 645 
3; 3540 3646 1 END; 
-PSECT 
42 40 59 53 SC SA 4C 42 4D 59 53 47 42 446 21 
45 46C 45 SF 59 41 52 52 41 SF 45 SA 49 4C GF 
54 4E 645 «44D «(0042 
-PSECT 
OFFC 00000 SYMBOL IZE ARRAY 
SA 04 AC 00 00002 MOVL 
3¢ 18 AA b0 is MOVL 
B OA f A MOVAB 
01 ia CMPB 
1§ 13 0001 BEQL 
00000000' EF 9F 14 PUSHAB 
1 DD QOOOIA PUSHL 
00028362 : DD 9001 PUSHL 
000000006 99 3 F CALLS 
08 at D 1$: MOVL 
6 p D TSTL 
? F BNEQ 
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16-Sep-1984 02:41:4 AX-11 Bliss<-32 V4.0-74 

1 =3e0 138% Osa} 6 DEBUG. SRCTOBSSYMBL s -039:1 
ROUTINE SYMBOLIZE_RECORD_COMPONENT(PRIMPTR, BIT_OFFSET) = 


FUNCTION 
This routine gets a List of record components, call GET_RECORD_COMPONENT 
to figure out THE component that is closest to the desired address. 


INPUTS 
PRIMPTR = Pointer to primary descriptor. 


BIT_OFFSET = Offset value to the Primary. 
OUTPUTS 


Returned value is the Pointer to primary and updated offset value 
to the Primary. 


LA ALA AINA AI AIAN AINIAIAI ANN 
o oa PEAS AAAA AAA A AAAS 
a PAA OMIT 
—CODNOULS Wr "00 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 664 BEGIN 
: 665 -_ 
; 206 66 BIT OFFSET: REF VECTORC,LONG], ! Offset to Primary 
; 6 068 PRIMPTR: REF DBGSPRIMARY; ! Pointer to Primary 
; 356 s079 LOCAL 
; 3566 671 BITSIZE ' Bit size of the record (not used) 
; 3 ore COMPVECPTR: REF VECTORL,LONG], | Pointer to vector of component 
; 67 } SYMIDs for this record type 
; 674 NCOMPS, ! Number of components for this record 
; 3570 $07? OFFSET ' Left over offsets to Primary 
; 3571 676 REC _SUBNODE: REF DBGSPRIM_NODE, ! Pointer to Primary Subnode 
; 357 677 SYMID: REF RSTSENTRY; ! Symid pointer 
; 357 678 
; 3574 679 
; 3575 3680 ! Get the last subnode we just built. (This one must be a RSTSK_TYPE_RECORD. 
; 3377 ret } type). 
; 3578 68 REC_SUBNODE = .PRIMPTRCDBGSL_PRIM_BLINK]; 
: $20) ret) JF i rt = SUBNODECDBGSB_PNODE _FCODEJ NEQ RST$K_TYPE_RECORD 
; $203 rt $DBG_ERROR(*DBGSYMBLZ\SYMBOLIZE_RECORD_COMPONENT"); 
28s 688 
ane rea : Get a List of record components for this record... 
286 691 DBGSSTA_TYP_RECORD(.REC_SUBNODECDBGS$L_PNODE_TYPEID], NCOMPS, COMPVECPTR, 
5 69 BITSIZES; 
588 69 
589 694 
590 695 ! Find a SYMID from this List of record components has the closest 
23 rts } offset value to the given offset value. 
295 698 SYMID = 0; 
594 699 OFFSET = 0; 
595 00 INCR I FROM 0 TO .NCOMPS = 1 DO 
236 701 BEGIN 
59 7 PRIMPTR = GET_RECORD_COMPONENT(.PRIMPTR, .COMPVECPTRE.1), 
598 70 <BIT“OFFSET, SYMID, OFFSET, .1); 
599 704 END; 
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OBGSYMBLZ 1beSe =1984 141:4 AX-11 Bliss-32 V4.0-74 P 119 
yOe 2000 eagee= 188 §S:tFi8% © HORUS Bhi ssege very oss.1 29° (39) 
: y 5 
3 4 § } we ete not find a record component just returned the primary we got 
: $604 108 Fo be 
; Og 9 IF .SYMID EQL 0 THEN RETURN .PRIMPTR; 
: 71 
; 3608 ag ! We have found a better symbol, re-figure the offset value to the 
: re re } record component. 
: 3611 71 BIT_OFFSET .BIT_OFFSETCO] = .OFFSET; 
: el at * ETCO] = .BIT_OFFSETCOJ OF FSE 
; 614 at ! Building the Primary subnode for record component. 
: 616 731 REC_SUBNODECDBG$V_PNODE_EVAL] = TRUE; 
3 et 7 ¢ RETORN BUILD_PRIMARY_SUBNODE(.PRIMPTR, .SYMID, -BIT_OFFSET); 
; 3618 72 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
42 4D 59 53 SC SA & 42 4D 59 53 47 42 44 24 00430 P.ADY: .ASCII \SDBGSYMBLZ\<92>\SYMBOLIZE_RECORD_COMPON\  ; 
4F 43 SF 44 52 GF 43 45 52 SF 45 SA 49 4C GF 00463F 3 
4E 4F 50 4D OO6E 3 
54 4E 45 0045 sASCII \ENT\ : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
000C 00000 SYMBOLIZE_RECORD_COMPONENT: 
. ave R2,R3 ; 3648 
5E 14 C2 0000 SUBL2 #20, SP 3 
29 04 aC 00 0000 MOVL PRIMPTR, RO 3 3683 
5 18 AQ 00 00009 MOVL 4(RO), REC_SUBNODE 3 
07 09 Ad 91 00000 CPB (REC_SUBNODE), #7 ; 3684 
1 13 00011 BEQL 1$ 3 
00000000’ F OF Bate PUSHAB P.ADY 3; 3686 
1 DD 0001 PUSHL #1 : 
00028362 F OD 18 PUSHL #164706 3 
00000000G 00 3 «FB 1 CALLS #3, LIBSSIGNAL 3 
é bo 8 1$ PUSHL : 3691 
08 AE 9F A PUSHAB COMPVECPTR : 
1 AE OF PUSHAB WNCOMPS : 
oc «AS DD PUSHL Tacnet UBNODE ) : 
000000006 00 04 FB CALLS #4, DBGSSTA_TYP_RECORD 3 
Oc AE 7C A CLRO = OF FSET : 3699 
52 0 cf MNEGL #1, 3; 3702 
18 4 ARB 3$ ; 
5 D 42 2% PUSHL | : 3203 
1 AE OF 4 PUSHAB OFFSET ; 370 
1 AE 9F 47 PUSHAB SYMID : 
0 ac 0D 4A PUSHL BIT_OFFSET : 3703 
4 BE42 DD 00040 PUSHL aCOMPVECPTREI) ; 370 
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COMMAND QUALIFIERS 


m 11 
| DBGSYMBLZ 16=Sep-1 
y0L=000 1e-Sep-19 
06 ac oD 1 
FCFC OC 06 F 4 
04 Ac D 9 
EO 5 08 AEF 3$: 
10 AED § 
, 4 
| 50 06 AC p 
08 8B oc A 3 oe 4$: 
OA A Of §§ $f : 
08 AC DD 00075 
146 AE DD 0 78 
04 AC DD 00078 
FCOC oC F 03 FB ove 
04 0008 
3; Routine Size: 132 bytes, Routine Base: DBGSCODE + 19A0 
: 3619 3724 1 
; 3620 725 0 END ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: DBGSOWN 8 NOVEC, WRT, RD ,NOEXE,NOSHR, 
> DBGSPLIT 1109 NOVEC.NOWRT. RD. EXE. SHR. 
: DBGSCODE 6692 NOVEC.NOWRT. RD; EXE. SHR. 
: Library Statistics 
: eeecee eee Symbo ls eeeeeceece 
: File Total Loaded Percent 
; $255$DUA :PSYSL18IL1 L32;1 18619 1 
: EBUG. 08 StRutDEF F 4532: 1 3 9 
: $53 280UA 154 22 14 
; 55$DUA28  EDEBUS 08 De TheeRbS i32;1 we ae a) 
; " $255$DUA28:(DEBUG.08)JDBGNSG.L32;1 386 9 2 


9c 18:17:57 — Edeeus. Sac Secs rmec7.036; 1 


CALL re. "Get aRECORD. COMPONENT 
L 
AOBLSS N NOMS 


yt PRIMPTR, RO 


L OF FSET, aBlT_OFFS 

sveLs VOCREC. SOBNODE 

PUSHL sito FSET™ 

PUSHL SmI 

PUSHL 

CALLS Ae "BUILD_PRIMARY _SUBNODE 


-EXTRN LIBSSIGNAL 


LCL, L. CON, 4tSra prot t 
LCL, REL, CON, PIC,ALIGN(O) 
LCL, L. CON, PIC,ALIGN(O) 
Pages Processing 
Mapped Time 
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BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:0B8GSYMBLZ2/0BJ=0B8J$:DBGSYMBLZ MSRC$:DBGSYMBLZ/UPDATE=(ENH$:DBGSYMBLZ) 
669 e + 1117 data bytes 
bes 


Used: 4 79 pages 


3 pee Bh cnn Complete 
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